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¡¡MENUDO CAMBIO!! 


Tráenostu 


y llévate un 



SPECTRUM 



Renuévate con 
INVESTRONICA. 


Apúntate a lo más 
nuevo. 


Tenerlo, muy fácil 


Ahora INVESTRONICA te da 
la oportunidad de hacerte con el 
microordenador más moderno 
del mercado: EL SPECTRUM 
PLUS, 

Sólo tendrás que entregarnos tu 
ZX SPECTRUM... 

...lo demás será visto y no visto, 
el Spectrum Plus ya es tuyo. 
Tener un ordenador Sinclair es 
la garantía de estar siempre a 
la última. 


O 18.000 pís si es de 16 K 


El Spectrum Plus es lo más 
nuevo del mercado. Si tu 
Spectrum es estupendo; el Plus 
es fabuloso, Podrás disfrutar de 
un teclado profesional; 

17 teclas más que el Spectrum, 
es decir 17 ventajas más... y 
por supuesto lo podrás utilizar 
con todos los programas y 
periféricos que ya tienes, puesto 
que el SPECTRUM PLUS es 
totalmente compatible con todo 
el software y accesorios del 
spectrum. Además 
INVESTRONICA al realizar el 
cambio, te da de nuevo 
6 meses de garantía, 
una nueva cassette de 
demostración y un libro de 
instrucciones a todo color. 

No te lo pienses... cambíate a lo 
último, tienes las de ganar. 


Manda tu ZX Spectrum 
(sin cables, ni fuente de 
alimentación) a tu Servicio 
Técnico Oficial 
(HISSA) más cercano, bien 
personalmente o por agencia de 
transportes (los gastos son por 
cuenta de INVESTRONICA) y en 
48 horas ya podrás disfrutar de 
tu nuevo Spectrum Plus. 

Sólo tienes que abonar (contra 
reembolso) 12.000 Pts. (*) 



Dirígete a cualquiera de las delegaciones Himam 


C/. Aribau, n.°-80, Piso5.° 1° 
Tefe. (93) 323 41 65-323 44 
08036 BARCELONA 


P,° de Ronda, n* 82, 1E 
04 Telf (958) 26 15 94 
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C/. San Sofero, n. D 3 
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28037 MADRID 
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Telf (985) 21 88 95 
33002 OVIEDO 


0/ Hermanos del Río 
Rodríguez, n° 7 bis 
Tel: (954) 36 17 08 
41009 SEVILLA 


C/. Universidad n.° 4 - 2.° 1° 
Telf (96) 352 48 82 
46002 VALENCIA 


0/ Travesía de Vigo, n,° 32, l. Q 
Telf. (986) 37 78 87 
6 VIGO 


Avda de Gasfeiz, n>' 19 A - 1° D 
Telf. (954) 22 52 05 
01008 VITORIA 
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50003 ZARAGOZA 
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AMPLIA TU MEMORIA... A 48K. 
Conoce las interioridades de tu Spectrum 
y la forma de expandir su memoria. 
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FORTH. Nociones básicas para utilizar programas que utilizan este lenguaje. 





UNA CLAVE, PLEASE. Una pequeña 
rutina en código máquina para proteger 
ei acceso de “curiosos”. 



QL \1 AGAZINE. Suplemento especial 
para conocer a fondo lo último de 
Sinclair. 



AULA INFORMATICA CON 
SPECTRUM. Claves para la 
introducción eficiente de La informática 
en las escuelas. 



PROGRAMAS. Monopoly, mecánica y 
archivo, tres programas laaaaaargos para 
aprovechar mejor las posibilidades de su 
Spectrum. 



GUSANEZ. Las aventuras y desventuras 
de nuestra mascota, esta vez por partida 
doble. 

PREGUNTAS Y RESPUESTAS. 


F.L CORCHO. 
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abondonar a^nuastro querido Spectrum. 
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Al bloque de memoria acceden el 
bus de direcciones (address bus), el bus 
de datos (data bus) y las señales de 
control que son WR (escritura), RD 
(lectura), y MREQ(requerimiento de 
memoria)*. 

El número de bits del bus de direc¬ 
ciones nos dará el espacio máximo 
direccionable, es decir, el número 
máximo de bytes a los que podemos 
acceder. El Spectrum es un ordena¬ 
dor desarrollado a partir de un mi¬ 
croprocesador muy popular (y eco¬ 
nómico): el Z-80; que posee un bus 
de direcciones de 16 bits, Podremos 
por tanto direccionar 2 !tl — 65.536 
bytes. Complicando tanto al software 
como al hardware se puede conseguir 
direccionar mayor cantidad de me¬ 
moria a partir del Z-80, formando di¬ 
ferentes «páginas» de 64 Kbytes cada 
una, pero este no es el caso del Spec- 
trum. 

Los 64 Kbytes de espacio direceio- 
nable se dividen en dos grupos muy 
bien diferenciados: los primeros 16 
Kbvtcs están ocupados por memoria 
de sólo lectura (ROM) y los 48 Kby¬ 
tes restantes por memoria de lectura 
y escritura, conocida normalmente 
con el nombre de RAM, aunque la 
denominación no es muy correcta. 
RAM es la abreviatura inglesa de 


AMPLIATU MEMORIA- A 


La caída de precios de los últimos meses ha hecho que la 
mayor parte de los usuarios disfruten del Spectrum de 
48* K. Pero no fue este el caso de los «pioneros» Sinclair, 
quienes a duras penas pudieron acceder al Spectrum 16 K, 
y que ahora se encuentran discriminados ante el 
abundante software existente para el 48 K, demasiado 
«largos» para su reducida memoria. 

Afortunadamente este problema ya no es problema si se 
puede y sabe efectuar la ampliación de memoria 
correspondiente. 


Random Access Memory que significa 
memoria de acceso aíeatorio, y son 
aquellas a las que se puede acceder a 
una palabra (byte si ésta es de 8 bits) 
de una manera directa, siendo el \ 
tiempo de acceso independiente de 
la posición de la palabra a acceder. 

Por el contrario existen memorias de 
acceso secuencial, en las que para ac¬ 
ceder a una palabra es necesario pa¬ 
sar antes por todas las anteriores. La 
idea es similar a Ja diferencia entre el 
disco y la cinta de cassette; en el disco 
no hace falta rebobinar, se accede di¬ 
rectamente. Según lo anterior la 
ROM también es RAM aunque a lo 
largo del artículo se utilizará este tér- 









mino con su significado usual, es de¬ 
cir, como memoria de lectura y escri¬ 
tura. 

Este segundo bloque sólo tiene 16 
Kbytes en el Spectrum «pequeño», 
por lo que habrá que incrementarlo 
en 32 Kbytes para conseguir el 
mayor. 

En el bloque de sólo lectura se al¬ 
macenan los programas que permi¬ 
ten al Spectrum empezara funcionar 
nada más dar tensión a sus circuitos, 
tales como las rutinas de grabación, 


las de impresión de caracteres en 
pantalla, el intérprete de BASIC, etc. 
Así por ejemplo la dirección 0000 
h., 0 decimal es la apuntada por el 
microprocesador tras producirse un 
reset; o la dirección 0385 h, 949 de¬ 
cimal es la de comienzo de la rutina 
de sonido. 

En el segundo bloque se incluyen 
las variables del sistema, el fichero de 
pantalla, los mapas de Mimdrive, los 
gráficos definidos por el usuario, etc, 
y además los programas tanto en BA¬ 
SIC como en código máquina. 

Una vez direccíonada la memoria, 
se podrá realizar una operación de 


lectura: un byte será puesto en el bus 
de datos; o una operación de escritu¬ 
ra; el contenido del bus de datos será 
almacenado en una palabra de me¬ 
moria. Operaciones que se encuen¬ 
tran controladas por tres señales, las 
tres activas a nivel bajo: 

MRE QJmemory request) que valida 
el contenido del bus de direcciones, e 
indica que se trata de una operación 
de memoria, no de entrada o salida 
desde un periférico. También inter¬ 
viene en el «refresco»*de los 32 Kby¬ 


tes últimos de memoria en el caso del 
Spectrum. 

RD (rtad) que indica a la memoria 
o a cualquier dispositivo de entrada o 
salida, que el Z-80 quiere leer un dato 
que deberá ser puesto en el bus de da¬ 
tos. 

WRfwrite) que indica que el conte¬ 
nido del bus de datos debe ser alma¬ 
cenado por la memoria o por cual¬ 
quier otro periférico. 


Realización práctica 

Primero hay que conseguir los cir¬ 


cuitos integrados necesarios que, o 
bien se pueden adquirir sueltos (lo 
que a veces no es muy fácil en el mer¬ 
cado español) en tiendas de compo¬ 
nentes electrónicos, o en forma de 
kit. 

Los multiplexores son 2 intregra- 
dos 74 LS 157, las puertas NAND se 
encuentran en el integrado 74 LS 00 
y fas OR en el 74 LS 32. En cuanto a 
las memorias, ya sabemos que se tra¬ 
ta de 8 integrados TMS 4532 L3 u 
ocho integrados TMS 4532 L4, todos 
de la misma clase. La ampliación no 
se podrá realizar si se mezclan ambos 
tipos. 

Para instalarlos se extraen los 5 tor¬ 
nillos que unen la carcasa y el teclado 
del ordenador. Para ello hay que vol¬ 
ver el Spectrum boca abajo. 

Una vez extraídos se vuelve el or¬ 
denador a su posición normal y se re¬ 
tira el teclado suavemente, sin tiro¬ 
nes, para no dañar los conectares que 
son muy delicados. 

Después se afloja el tornillo pe¬ 
queño que se encuentra en el medio 
de la placa de circuito impreso y se 
extrae éste. A continuación se afloja 
otro tomillo que encima del regula¬ 
dor de tensión sujeta al refrigerante a 
la placa de circuito impreso. Una vez 
quitado el refrigerante queda total¬ 
mente al descubierto la zona de am¬ 
pliación de memoria. 

La operación anterior correspon¬ 
de al caso de la versión 3B (ISSUE 
3B), Si el Spectrum es de la versión 2 
(ISSUE 2) no es necesario retirar el 
circuito impreso ni el refrigerante. 

Ahora se realizan los puentes. En 
la versión 3B hay que unir los puntos 




















































































El día 
que hice 
la ampliación 


marcados como «TL» por un lado y 
los marcados como «3» por otro, si la 
RAM es de código I MS 4532 1-3; y 
los puntos «TI» y «4» si el código es 
TMS 4532 L4. 

Para el iSSUb. 2 hay que realizar 
un solo puente entre d punto marca¬ 
do por I.1NK y 0 voltios si la RAM es 
de la versión TMS 4532 L3; o entre 
L1NK y 5 voltios si el código de los 
chips es TMS 4532 1.4. 

A continuación se insertan los in¬ 
tegrados, quedando la expansión to¬ 
talmente realizada. 

Memorias estáticas y dinámicas 
de lectura y escritura 

l as memorias estáticas son aque¬ 
llas que almacenan información sólo 
con que los circuitos estén alimenta¬ 
dos y los accesos de la información 
sean correctos. Se encuentran forma¬ 
das por biestables y ocupan un área 
muy grande en el proceso de integra¬ 
ción. 

Las memorias dinámicas poseen 
menos transistores por bit almacena¬ 
do, y ocupan menos área en el chip, 
permitiendo memorias más grandes, 
más baratas y que consumen menos 
potencia. Pero tienen una desagra da¬ 
ble desventaja: olvidan, Es necesario 
proceder a su refresco cada un cierto 
tiempo. No están formadas por bies¬ 
tables y mantienen la información 
gradas a las capacidades (parásitas 
para otro tipo de aplicaciones) que 
aparecen en los transistores MOS. 
En el caso de las memorias Ja capaci¬ 
dad cargada almacena un 1, y descar¬ 
gada un 0. Aunque el aislamiento es 
muy grande, siempre hay pequeñas 
corrientes de fugas que descargan es¬ 
tas capacidades, y por ello la infor¬ 
mación se pierde si no hay refresca¬ 
do. 

El tipo de tecnología utilizada: 
MOS o bipolar condiciona el tiempo 
de acceso, el precio y la capacidad. 
Las memorias bipolares son muy rá¬ 
pidas pero caras y de pequeña capaci¬ 
dad. Las MOS son más lentas, bara¬ 
tas y de mayor capacidad. Las memo¬ 
rias de lectura y escritura empleadas 
en el Specrrum son dinámicas y de 
tecnología MOS. 

La memoria ROM 

Bajo este nombre genérico se agru- 


Quíenes sabiendo muy poco acer¬ 
ca del «mundillo» de tos microorde¬ 
nadores o por razones económicas 
optamos por comprar un Spectrum 
de 16 Kbytes de memoria RAM, 
pronto nos encontramos con la desa¬ 
gradable sorpresa de que ta mayoría 
del software comercializado y prácti¬ 
camente todos los programas de jue¬ 
gos de alta calidad, no podía ser car¬ 
gado en el ordenador: necesita lía¬ 


me morí a (16 * 1024 bytes; 1 Kbytc — 
1024 bytes)t I Spectrum sólo puede al¬ 
macenar programas muy cortos, ade¬ 
más no podemos utilizar íntegra¬ 
mente esa capacidad de memoria, 
parte de ella reservada para funcio¬ 
nes internas del propio sistema, co¬ 
mo el fichero ded representación vi¬ 
sual, los atributos y las variables del 
sistema entre otras. Nos quedan en¬ 
tonces aproximadamente 8 Kbytes de 
memoria utilizables directamente, lo 
que para una gran parte de aplicacio¬ 
nes es demasiado poco- 

Existen técnicas especiales con las 
que se consigue mayor capacidad de 
memoria. Sabia de la existencia de al¬ 
gunos copiadores que conviven si¬ 


multáneamente con el programa que 
va a ser duplicado aunque este ocupe 
el máximo de memoria posible. Este 
tipo de programas se ubican en el fi¬ 
chero de representación visual ha¬ 
ciéndose transparente en la pantalla 
del monitor, pero inutilizándola par¬ 
cialmente, según me habían dicho. 

Es evidente que esta clase de técni¬ 
cas sólo son utilizadas por el progra¬ 
mador experimentado, que com¬ 


prende con mayor fuerza que el neó¬ 
fito los inconvenientes que origina 
una memoria de corta longitud. 

Planteado el problema me pregun¬ 
té cómo incrementar esa memoria en 
los 32 Kbytes necesarios para conse¬ 
guir las prestaciones de su hermano 
mayor: ei Spectrum de 48 Kbytes. Así 
que me informé. 

En principio uno y otro modelo 
tienen como única diferencia una se¬ 
rie de circuitos integrados que en la 
versión de 48 Kbytes se encuentran 
soldados en la placa de circuito im¬ 
preso, y en la versión de 16 Kbytes se 
encuentran los zócalos pero no los 
circuitos integrados. 

Armado con esta información, pu¬ 
de conseguir los circuitos integrados 
necesarios, y los conecté tomando 


Chips ampliación 
memoria TMS 4532 
<L3/ L4) 


Cuatro chips 
de contro! 
de memoria. 


Regulador 
de tensión 



mos un Spectrum de 48 Kbytes. 
Efectivamente, con 16 Kbytes de 
































como modelo un Spectrum de 48 
Kbytes de la misma versión (ISSUE 3- 
B) que el mío de 16 Khytes. Después 
de colocar los integrados alimenté el 
ordenador y sorprendentemente no 
funcionaba. En la pantalla del televi¬ 
sor correctamente sintonizado no 
aparecía el mensaje de copyright de 
Sinclair; muy al contrario, el Sp.ec- 
truni no enviaba ningún tipo de se¬ 
ñal que el receptor de televisión pu¬ 
diera visualizar. 

Con gran temor de haber averiado 
la circuíteria del Spectrum desconec¬ 
té los integrados que antes había in¬ 
sertado y alimenté de nuevo el orde¬ 
nador. Todo funcionaba normal¬ 
mente. 

Después de esta nefasta experien¬ 


cia decidí llevar el Spectrum a una 
tienda especializada del ramo, donde 
después de intentarlo, me confirma¬ 
ron que el ordenador no admitía la 
ampliación interna, y me aconseja¬ 
ron que, o bien adquiría una amplia¬ 
ción externa, o lo ponía en manos dd 
servicio de reparación de Investróni- 
ca. 

Decidido a tener un Spectrum sin 
ampliación externa ya que había vis¬ 
to con mis propios ojos el «hueco»* 
que tenía el circuito impreso para la 
ampliación interna, me decidí por 
enviarlo al servicio de reparaciones 
de Invcstrónica. 

Por fin y después de abonar 9.975 
pts. conseguí tener mi Spectrum am¬ 
pliado a 48 Khyh'S de memoria RAM* 


Mas adelante descubrí que la posi¬ 
ble causa de que no funcionase d or¬ 
denador con la ampliación realizada 
por mi mismo, podría estar en una 
serie de puentes que hay que realizar 
en la versión pequeña para convertir¬ 
la en la de 48 Khytes. 

Sin embargo a aquellos que no 
tengáis una mínima experiencia en el 
ensamblado de circuitos electróni¬ 
cos, os aconsejo no realizar la am¬ 
pliación con vuestras propias manos 
y, aunque sea un poco más caro con¬ 
fiar la operación a cualquier tienda 
especializada, o al propio servicio de 
reparaciones de Investrónica* 

Javier Sánchez 


Vista parcial issue 2 t destacando h ampliación. 



Refrigerante del regulador 
de tensión 


IMS 4532 (L3/L4) 


control de la memoria 



issue 3B sin retirar el refrigerante del regulador de tensión. 
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Zona de puentes issue 2. 












































pan tres clases de memorias cuyo 
contenido es inalterable para el pro¬ 
gramador: 

ROM propiamente dicha.- Su 
contenido es completamente inalte¬ 
rable desde la fabricación del chip, 

PROM.- Su contenido se progra¬ 
ma una vez y después permanece 
inalterable. Las modificaciones reali¬ 
zadas en la grabación son destructi¬ 
vas. 

RPROM- Son de tecnología 
MOS y su contenido se puede pro¬ 
gramar y permanecer inalterable pa¬ 
ra el programador que maneja el or¬ 
denador. Pero pueden volver a ser 
puestas en blanco y reprogramadas. 
El proceso de grabación no es des¬ 
tructivo. 

Cualquier usuario con suficientes 
conocimientos puede cambiar la 
ROM del Spectrum por una PROM 
o una RPROM e intentar corregir, en 
el nuevo chip, los defectos de progra¬ 
mación, de algunas rutinas del dise¬ 
ño original de Sinclair. 

Como funciona la expansión 

Las memorias de 32 Kbytes utiliza¬ 
das en la ampliación son la I MS 
4532 L3 o la TMS 4532 14* Cada 
chip tiene 16 pines y almacena el 
contenido de un solo bit en cada po¬ 
sición di rece Sonable. Por lo tanto se 
necesitan 8 circuitos integrados para 
almacenar 1 byte. 

Si el bus de direcciones es de 16 bits 
y hay 16 terminales en cada chip da 
la impresión de que no hay suficien¬ 
tes pines para las señales de control 
de memoria, así como para la ali¬ 


mentación. En realidad sólo 8 de 
esos 16 terminales están dedicados a 
la selección de la dirección. Los 16 
bits se introducen multíplexados en 
2 grupos de 8 bits, de tal manera que 
primero se introducen los 7 bits co- 
respondientcs al direccionamiento 
de una fila de la memoria, y después 
los correspondientes a una columna* 
Dos grupos de 8 bits suponen 16 en 
total y sin embargo sólo son necesa¬ 
rios 15(8 -f 7), por lo tanto sobra uno. 
Este bit, A( 15), se pone a 0 o a 1 en 
función del integrado que hayamos 
adquirido, realizando, mediante tro¬ 
zos de hilo conductor, unos puentes 
en el circuito impreso del Spectrum. 

Si tenemos el TMS 4532 L3 se de- 


Si no domina el ensam¬ 
blado de circuitos elec¬ 
trónicos, mejor déjeselo 
a un especialista. 


be poner a 0, y en el caso del TMS 
4532 L4 debe de estar a 1. Para enten¬ 
der el funcionamiento basta seguir el 
esquema del circuito y el eronogra- 
ma de una operación de memoria. 

Primeramente el microprocesador 
coloca en el bus de direcciones la po¬ 
sición del byte a seleccionar. Si se tra¬ 
ta de una dirección perteneciente a 
los 32 Kbytes últimos de memoria, es 


decir, una dirección de la amplia¬ 
ción, A( 15) se pone a nivel alto. Si¬ 
multáneamente MREQ, RD, y WR 
están también a 1. A la salida de P5 
aparece también un 1 con lo que los 
pines S (selección) de los circuitos in¬ 
tegrados IC 26 y IC 25 que son multf 
plcxorcs (computadores electrónicos 
digitales), están también a nivel alto. 
Estos circuitos presentan a la salida 
(referencia Y) lo que se encuentra en 
las entradas marcadas por A si S está a 
0, o lo que haya en las entradas de re¬ 
ferencia B si S está a nivel alto. Apa¬ 
recen entonces a la salida de los muh 
ti plexo res los bits A0, Al, A2, A3, 
A4, A5 y A6 correspondientes a la se¬ 
lección de una dirección de fila en la 
memoria. 

Con medio ciclo de reloj de retar¬ 
do se activan MREQ y, si se trata de 
una operación de lectura también 
RD (pasan a nivel bajo). WR conti¬ 
núa a 1 y por lo tanto en la entrada 
WR de las memorias existirá ese mis¬ 
mo nivel indicando una operación 
de lectura. La señal a la salida de P4 
cambia a nivel bajo unos 20 ns. des¬ 
pués, y aproximadamente 10 ns. an¬ 
tes ya se había activado la entrada 
RAS a través de P2. La activación de 
RAS (row áddress j ir obe — permiso de 
dirección de fila), valida lo que hay 
en las entradas A0, Al, A2, A3, A4, 
A5, A6 y A7 de los chips de la RAM 
como la dirección de una fila de me¬ 
moria. El pin S de los multiplcxores 
tarda mis en cambiar de estado debi¬ 
do al retardo de aproximadamente 
35 nanosegundos, introducido por 
A7I-C63, P2 y P5, a partir de la acti¬ 
vación de MREQ y RD. 
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El tiempo que transcurre entre la 
activación de RAS Y EL PASO A tí de 
8 es suficiente para la entrada de la 
dirección de la fila. 

Con otro retardo de unos 35 ns. y a 
través de Pó, se produce la activación 
de CAS (column aádrm slrobe = per¬ 


miso de dirección de columna) que 
valida el contenido de las entradas 
como la dirección de una columna. 
Recordemos que el terminal S de los 
multiplexores habían pasado a 0, con 
lo que en las salidas de estos integra¬ 
dos se encontraban los bits A7, A8, 


A9 # A10, All, A12, A13yA14de la 
dirección. 

Realmente las entradas de las di¬ 
recciones de las lilas y de las colum¬ 
nas en la memoria se producen con 
el flanco de bajada de las correspon¬ 
dientes señales de control, por lo que 


ó 



PERIFERICOS 


GESTION 

* CONTEXT V 7 

Procesador de textos 4.000,— 

* CONTEXT V.8 

Versión en catalán 4.000,— 

* S.I.T.L V.2 

Base de datos con cálculos 4.000,— 

* COPY RS-232 

Impresoras tipo Admate 2.500,— 

* CONTABILIDAD PEQ. NEGOCIO 

Novedad PIN 3.000,- 


ATENDEREMOS GRATUITAMENTE SUS CONSULTAS 
SOMOS LOS AUTORES 


INTERFACE CENTRONICS + 
Software Copy-Color (Novedad) 

LAPIZ OPTICO + 

Software completo (Novedad) 
INTERFACE MONITOR 
B/N y Color. Vídeo compuesto 
MONITOR TM80 
Fósforo verde antirreflectante 


8 . 000 ,— 

4.750,“ 

3.900,— 

27.000,- 
















tiempos muy pequeños son suficien¬ 
tes para que se produzca la transfe- 
renda de bits. 

La operación de escritura es simi¬ 
lar, y el lector con conocimientos 
medianos de electrónica digital la 
podrá seguir a través del esquema 
ayudándose con el cronograma antes 
mencionado. 

Activando la señal RAS se consi¬ 


gue el refrescado de las 128 direccio¬ 
nes de fila, es decir, proporciona la 
regeneración de todos los bits en ca¬ 
da una de las filas. El refrescado se 
debe hacer al menos una vez cada 2 
nis., y mientras se está realizando se 
anula cualquier salida. El Spectrum 
produce esta operación cada vez qye 
se activa MREQ* a través de P2, que 
actúa como buffer de la entrada RAS. 


Para comprobar que la ampliación 
ha sido bien instalada basta con te¬ 
clear PRINT PEEK 23733 y pulsar 
ENTER. Si la operación ha sido co¬ 
rrecta aparecerá en la pantalla el nú¬ 
mero 255. Si aparece un 127 el orde¬ 
nador está trabajando con ló Kbytes 
de RAM y la expansión no ha sido 
realizada con éxito. Realmente lo 
que hacemos es comprobar el conte¬ 
nido del byte de mayor peso de la va¬ 
riable P-RAM, en donde se almacena 
la dirección del último octeto de la 
memoria física. 

Por último queda por comentar 
que se puede realizar la ampliación 
con RAMs de 64 Kbytes utilizando 
sólo la mitad de su posibilidad de al¬ 
macenamiento. Para ello hay que re¬ 
plan i rica r algunos puentes o cone¬ 
xiones, y sólo deben intentarlo aque¬ 
llos que sean bastante expertos en 
electrónica. RAMs de 64 Kbytes váli¬ 
dos son la TMS 4564 y la TMS 4164 
que probablemente sean más fácil de 
conseguir que los mencionados ante¬ 
riormente. 




Descripción interna y patillaje del multiplexor 74LM75. 
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Esquema de la expansión de memoria 


Zona de puentes ampliada issue 3B. 















DOS GRANDES JUEGOS EN CODIGO 
CON MAQUINA OPCION DE JOYSTICK 


3UfiG0S 


Chopper PILOTANDO ÜN 
HELICOPTERO, TENDRA QUE DIRIGIR 
EL EQUIPO DE RESCATE PARA 
SALVAR A LOS ABANDONADOS 
EN UN CAMPO PETROLIFERO, 

DE UNA MUERTE SEGURA. 

Convoy DESTRUIR LOS 
ALIENIGENAS Y SUS NAVES 
ES LA UNICA FORMA DE SALVAR 
LA TIERRA DE LA INVASION, 


fumemos 

Twiddter MUESTRA LOS 
MISTERIOS DEL 
RAPIDO CAMBIO DE COLOR 
Cartoon APRENDA A 
PROGRAMAR 
DIBUJOS ANIMADOS. 

Hangout CONOZCA MAS A 
FONDO LAS POSIBILIDADES 
DE SU ORDENADOR. 


BIENVENIDO A 




CHOPPER 
TWIDDLER 
SHOOT 
HANGOUT 
TOMA TOES 
CARTOON 
CONVEYOR 
TALLER 
CONVOY 
L1CHTBIKE 
LA TUMBA DE ELLAK 
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P REY ME es, sin duda, una 
de las aplicaciones en mi¬ 
crodrive más serias que he¬ 
mos podido encontrar para el 
Spectrum de 48 Kbyies (¡seguro 
que no la última!), especialmente 
para el campo de la arquitectura, 
campo generalmente ocupado por 
ordenadores mayores y periféricos 
especiales como los plotters o “tra¬ 
zadores”. En suma, aplicaciones 
generalmente caras. Este programa 
permite realizar este mismo traba¬ 
jo, con las lógicas limitaciones de 
las 48 Kbyies de memoria. 

Destaca en primer lugar su cui¬ 
dada documentación. Un buen 
manual con el que “enfrentarse” a 
los cuatro microdríves que inte¬ 
gran el paquete. Los programas es¬ 
tán grabados en el microdrive 
PREYME, al que se le suman los 
de UNITARIOS, DESCOM¬ 
PUESTOS Y OBRAS, Es decir, un 
cartucho para los programas y tres 
para archivos de datos, a utilizar 
según las opciones que se requie¬ 
ran, teniendo en cuenta que en 


ocasiones se necesitará trabajar si¬ 
multáneamente con dos cartuchos, 
por lo que necesitará contar — 
además del interface 1— con dos 
unidades de microdrive. 

Para aprovechar mejor la me¬ 
moria, PREYME es en realidad un pa¬ 
quete integrado de cuatro progra¬ 
mas distintos (Unitarios, Descom¬ 
puestos, Obra y Varios), desde los cua¬ 
les se accede a los datos grabados en 
los archivos antes mencionados. 

El programa Unitarios maneja 
fundamentalmente el archivo de 
unitarios, pudiendo acceder al de 
Obra cuando lo necesita. El pro¬ 
grama Descompuestos utiliza el 
archivo de unitarios para la forma¬ 
ción de descompuestos o el de 
obra, para ver los descompuestos 
que intervienen en una obra deter- 
minda. El programa Obra realiza 
el presupuesto de la obra. Y, final¬ 
mente, el programa Varios realiza 
diversas funciones como la inicia- 
lización del cartucho, visualiza- 
ción de la memoria disponible y 
copia de seguridad. 


La figura 1 muestra estas cuatro 
opciones, tal y como salen en pan¬ 
talla tras la operación de carga del 
programa. El programa se sitúa au¬ 
tomáticamente en el bloque terce¬ 
ro (Obra), como puede verse por el 
fondo de color oscuro que identifi¬ 
ca el bloque de programa cargado 
en memoria. Después se pide el 
código referente a ¡a opción a utili¬ 
zar. 

Antes de elegir opción fíjese en 
la información que ofrecen las dos 
últimas columnas. Ya que no se 
puede contener toda esta informa¬ 
ción en memoria y se trabaja con 
dos microdríves simultáneamente, 
las dos últimas columnas informan 
de los cartuchos que habrán de es¬ 
tar presentes en el I y en el 2. Es 
inevitable el intercambio conti¬ 
nuado, pero al menos se informa 
adecuadamente, aunque al princi¬ 
pio siempre cometerá algún error. 
(Si este es su caso, ejecute 
GOTO 1, con lo que le aparecerá 
un mensaje de error, pasando des¬ 
pués al menú.) Veamos resumida- 







Si usted es arquitecto o aficionado a la arquitectura, más de una vez 
habrá tenido que hacer un presupuesto, es decir, pasarse toda la noche 
calculando y escribiendo en su vieja máquina de escribir para poderlo 
presentar a tiempo... ¡Y sin errores! Si a su afición por la arquitectura se 
une un interés por la informática y posee un Spectrum, sus noches en vela 

habrán terminado. 


mente los cuatro bloques en que 
se divide el programa. 


Unitario 

El fichero puede contener hasta 
32 capítulos con 32 unitarios cada 
uno, 1.024 en total. Cada unitario 
está definido por el número de ca¬ 
pítulo y el orden dentro de dicho 
capítulo, cuatro cifras que lo refe- 
rencian para llamadas posteriores 
desde los descompuestos. El nú¬ 
mero máximo de caracteres es de 
100 para la descripción de la uni¬ 
dad y 9 para el precio (ver figu¬ 
ra 2). 

Las opciones de este programa 
son: consultas y modificaciones, 
listado unitarios, materiales de 
obra y revisión de precios. 

La consulta y modificación tiene 
una cómoda y bonita presenta¬ 
ción, utilizándose las teclas de la 1 
a la 9 para avanzar el número de 
unidades equivalente al número de 
la tecla pulsada. 


La revisión de precios unitarios 
es automática, de acuerdo a las dos 
listas de precios existentes en ar¬ 
chivo que se suministran con el 
programa, una de las cuales per- 


Maneja tres archivos de 
datos: Obras, 

Descompuestos y Unitarios 


manece con sus valores a cero. Las 
diversas operaciones relacionadas 
con esta opción son sumamente 
lentas, debido al acceso a micro- 
drive. 

Descompuestos 

Al igual que el de Unitarios, 
puede contener un máximo de 32 


capítulos con 32 elementos cada 
uno, 1.024 en total. 

Las opciones de este programa 
son: consultas y modificaciones, 
listado de descompuestos, cuadro 
oficial de precios y actualización 
de precios. 

Las consultas y modificaciones 
se realizan por el mismo procedi¬ 
miento que en Unitarios. 

Las opciones de listado de des¬ 
compuestos y cuadro oficial se dan 
por impresora. Proceso ligeramen¬ 
te lento, especialmente er; el pri¬ 
mero, ya que la búsqueda de datos 
ha de hacerse en dos archivos si¬ 
multáneamente. El cuadro oficial 
de precios es similar, imprimiendo 
sólo las partidas que entran a for¬ 
mar parte de una obra. Finalmen¬ 
te, la actualización de precios se 
realiza sobre la lista de precios uni¬ 
tarios. 


Obra 


Cada nueva obra necesita un 
cartucho con el nombre de “Obra” 















e inicializado con la opción “13 
inicial i zar” que veremos en el si¬ 
guiente programa. El archivo de 
Obra es similar al de Descompues¬ 
tos, contando con 32 capítulos de 
32 partidas cada uno (ver figura 3). 

Las opciones de este programa 
son: consultas y modificaciones, 
presupuesto, decodificar y actuali¬ 
zación de precios. 


En realidad es un paquete 
integrado, compuesto de 
cuatro programas distintos 


La información de cada partida 
de obra es de un código (cuatro ci¬ 
fras), descripción (introducción 
automática), mediaciones y co¬ 
mentarios (12 lineas), e importe 
(calculado automáticamente con 
los datos de la medición y precio 
elegido). 




. 


Figura I. Menú de 
opciones. La zona 
en negro indica los 
programas 
residentes en 
memoria. 


Figura 2. Ejemplo 
de un capítulo de 
unitarios. 




LO QUE DEBE TENER UN PROGRAl 


Para hablar de programas de 
mediciones, nadie mejor que Fer¬ 
nando de Valderrama, arquitecto y 
autor del programa PRESTO, uno 
de los primeros programas profe¬ 
sionales aparecidos en el mercado 
para grandes ordenadores. Rodea¬ 
do de equipos Hewlett-Packard 
150, nos cuenta “lo que debe tener 
un programa de mediciones”, que 
resume en fres características: la 
dimensión adecuada de los archi¬ 
vos, la flexibilidad de uso y la rapi¬ 
dez. 

“Un fichero de precios debe te¬ 


ner 600 partidas como mínimo.’ 
Los bancos de datos estándar tie¬ 
nen 1.200 partidas, como es el caso 
de la Junta de Andalucía, o de 
3.000 para la Generalitat. Pero 
600 es una buena cifra para poder 
manejar la información de forma 
eficiente. Esto en cuanto a obra, ya 
que también hay que tener en 
cuenta que en cada obra se mane¬ 
jan 4.000 líneas de medición, es 
decir, las líneas en las que se des¬ 
compone la medición de la unidad 
de obra. Manejar 4.000 líneas es lo 
normal. Y medido en capítulos, el 


























Figura 3. Ejemplo 
de un capitulo de 
obra. 


Figura 4 Revisión 
de precios, una de 
las opciones más 
lentas , 


Varios 

Ei cuarto programa consiste en 
cuatro utilidades: inicializar, me¬ 
moria libre del cartucho, copia de 
seguridad y definición de impreso¬ 
ra. 

El proceso de inicialización de 
cartuchos consiste realmente en 
dos pasos: formateado de un cartu¬ 
cho e inicialización para trabajar 
con PREYME, 

La opción Memoria libre infor¬ 
ma de la capacidad disponible en 
Kbytes del cartucho elegido. Tam¬ 
poco es demasiado esfuerzo si se 
tiene en cuenta que este dato ya se 
proporciona al pedir el catálogo de 
cualquier cartucho. Sería más útil 
que la información estuviese refe¬ 
rida al número de unidades conte¬ 
nidas. 

La definición de impresora posi¬ 
bilita la obtención de resultados 
por diversos modelos de! mercado 
y en distintos formatos de impre¬ 
sión. 


Resumiendo 

Este programa se enmarca den¬ 
tro de las denominadas aplicacio¬ 
nes verticales, y de su seriedad da 


MA DE MEDICIONES 


número normalmente empleado es 
de 30, con 40 ó 50 partidas por ca¬ 
pítulo. 

Pero lo de menos son las cifras. 
Con el PRESTO se puede hacer 
desde un chalet hasta una autopis¬ 
ta. A veces se hacen programas a 
medida porque la gente no se da 
cuenta de hasta qué punto trabaja 
con limitaciones. También hay 
quienes creen que el capítulo 1 
siempre tiene que ser el del movi¬ 
miento de tierras, Todos los datos 
han de ser totalmente modifica- 
bles. Por ejemplo, la asignación de 


la grúa a la obra, normalmente se 
aplica el 3 %, pero el Ministerio 
de Obras Públicas prefiere un 1 
y la Junta de Andalucía el 8,1 de 
gastos auxiliares. En resumen, el 
usuario debe poder estructurar su 
programa de acuerdo a sus nece¬ 
sidades. 

Finalmente, el programa ha de 
ser rápido. Si obliga a mantener un 
esquema demasiado rígido no sir¬ 
ve. Generalmente este tipo de tra¬ 
bajos se hacen al final en una no¬ 
che. Con un buen programa se 
puede empezar más tarde para afi¬ 


nar más y acabar al mismo tiempo 
o antes que la competencia.” 

Lógicamente el PRESTO no es 
compatible con el Spectrum, pre¬ 
parado para equipos de 120 K de 
memoria y dos floppys de 270 
Kbytes cada uno. El precio varía 
de 200.000 a 260.000, según op¬ 
ciones. Prestaciones y precios por 
encima de lo que estamos acos¬ 
tumbrados en el Spectrum. Una 
buena comparación para cono¬ 
cer mejor al Spectrum, y por 
ende, aprovechar mejor sus capa¬ 
cidades. 
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buena prueba el que sea distribui¬ 
do por el Colegio de Arquitectos 
de Madrid. Hasta ahora, la infor¬ 
mad zación de este trabajo ha re¬ 
querido fuertes inversiones en or¬ 
denadores más grandes y en pro¬ 
gramas más complejos. En contra¬ 
partida, las dimensiones de sus fi¬ 


cheros son más limitadas y su ma¬ 
nejo más incómodo: en vez de tra¬ 
bajar con un disco, hay que utilizar 
cuatro microdrives. Pero si sus ac¬ 
tividades no son demasiado gran¬ 
des, este programa puede resolver¬ 
le muchos problemas... a un precio 
interesante. 



Figura 5. Ejemplo lisiado de 

Capítulos unitarios. 



Figura 6 Ejemplo listado de 
descompuestos. 
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¡APROVECHA AL MAXIMO TU SPECTRUM! 

Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador. 



Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi¬ 
ciente de la programación BASIC. 

Incluye temas como: 

• Introducción al teclado. 

• Instrumentos útiles para la programación, 

• Uso de comandos fáciles. 

• Como construir un programa. 

• Técnicas de programación. 

• Aplicaciones prácticas. 

toopogs. - 750 PTAS. 



Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atras la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación. 

El temario incluye: 

• Reglas y herramientas del BASIC. 

• La técnica de los organigramas. 

• Cómo planificar un programa. 

• El mundo de las rutinas. 

• Variables y “cadenas. 

• Funciones matemáticas usuales. 

1Q9pogs. " /50 PTAS. 


CUPON DE PEDIDO 

Recorta este cupón debidamente cumplimentado y envíelo a INFODIS. S. A. C/ BRAVO MURILLO. 377-5.° A 28020 MADRID 

/----- 

Si, envíenme el (los) libro(s) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas, en concepto de 
gastos de embalaje y envío. 

El importe lo abonaré: POR CHEQUE □ CONTRAREEMBOLSO □ CON TARJETA DE CREDITO (VISA d) 
(AMERICAN EXPRESS □) (INTERBANK □) 

Número de mi tarjeta 

TITULO_ 

NOMBRE _ 

CALLE___ ______ 

CIUDAD_D. P. _ 

PROVINCIA_ 

Firma 
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FUTBOL AMERICANO 


Distribuidor: Compuíogical 
Memoria requerida: 48 K 
Precio: 1.550 ptas. 


No se equivoque con el rugby, en 
el fútbol americano sólo hay 11 juga¬ 
dores y la pelota es más pequeña. 
Aunque no exista gran afición por es¬ 
te juego, seguro que las cuotas de 

adicción aumentan, al menos el jue¬ 
go con Spectrum. No se preocupe si 
no lo conoce bien, se dan instruccio¬ 
nes completas en las tres pantallas 
(pantalla de juego, estadísticas y ayu¬ 
da). 

Para comenzar, como en el juego 
real, se lanza ía moneda y el equipo 
acertante recibe el balón y se con¬ 
vierte en atacante para el que hay 
unas jugadas determinadas que el de¬ 
fensor tendrá que contrarrestar con 
jugadas defensivas. Cada jugada ata¬ 
cante tiene su contrapuesta defensi¬ 
va. Si no se da con la jugada defensi¬ 
va o atacante correcta se conseguirán 
pocos o ningún resultado. 

El juego es una fiel representación 
del fútbol americano y para acen¬ 
tuarlo más, se han permitido el lujo 
de visualizar, en cualquier momento 
del juego, una tabla estadística con 
todos los porcentajes acerca del desa¬ 
rrollo del juego, práctica común de 
los partidos americanos. 

La representación gráfica es bue¬ 
na, aunque se echa en falta la posibi¬ 
lidad de visualizar el campo de toda 
la pantalla. Tan sólo ocupa la mitad, 
dejando la parte inferior de la panta¬ 
lla para información del juego. De 
esta forma, los jugadores son dema¬ 
siado «pequeños» y no hay gran dife¬ 
rencia de color entre los equipos. 


lili ii -J -) i i i 

I# I f 
Itt 

_ 20 


*5 


Los buitres contra 
TODOSPECTÜ UM 
Los jugadores se 
agrupan en una 
esquina. 


Estadística de!juego, 
para tenerlo todo 
controlado 
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Control: Te dado. 

Jugadores: Uno. 

Gráficos: Buenos colores y 
definición de gráficos, aunque 
demasiado reducidos. 

Nivel de dificultad: No 
existen. 

Originalidad: Trata de ser 
un fiel reflejo de fútbol ameri¬ 
cano, incluyendo las largas es¬ 
tadísticas sobre distintos as¬ 
pectos del juego. 

Conclusión: Muy adjetivo 
y complejo, recomendable pa¬ 
ra fanáticos de este juego. 


En cuanto al nivel de dificultad, 
una vez que haya conseguido hacer¬ 
se con la s reglas del juego, varia con 
la experiencia de cada uno {aunque 
la suerte también influye en alguna 
medida). Cuanto más conozca los 
distintos tipos de jugadas y el mo¬ 
mento de llevarlas a cabo, mayor será 
su oportunidad de ganar. 

Tiene dos opciones de juego: con¬ 
tra el ordenador o contra un tercero. 
En el caso de que elija al Spectrum 
como contrario le será bastante difí¬ 
cil ganan Pero se lo aconsejamos efu¬ 
sivamente, ya se sabe que «para hacer 
un buen partido hay que estudiar al 
contrario». 































MANAGER 


Distribuidor: Software Centre 
Memoria requerida: 48 K 
Precio: 2.500 ptas. 


En la facultad de ciencias empresa¬ 
riales de cualquier universidad que se 
precie, seguro que encontrará un 
programa similar a este. El ordena¬ 
dor será más grande, pero difícilmen¬ 
te el programa puede ser más com¬ 
pleto. 

Manager es un simulador de em¬ 
presa, es decir, su Spectrum le da in¬ 
formación de «su empresa» referente 
a cuatro productos que integran el 
«proceso productivo»: el microorde¬ 
nador MICRO-XUOO, la unidad de 
discos i'LOP-DISKO, la impresora 
AZ-PRIN PER, el programa de conta¬ 
bilidad LOGICOMPTA, y el de ges¬ 
tión de existencias LOGISTOCKS. 


Control: Teclado. 

Jugadores: Uno. 

Gráficos: Todo es informa¬ 
ción escrita. No hubiese que¬ 
dado mal incorporar un gráfi- 
co de la marcha de la compa¬ 
ñía. 

Nivel de dificultad: Depen¬ 
de de la habilidad del juga¬ 
dor... ¡y de los «masters» en di¬ 
rección de empresas! 

Originalidad: Es un clásico 
en el terreno de los simulado¬ 
res de empresas. 

Conclusión: A pesar de ser 
un clásico, llama la atención el 
elevado número de «variables 
económicas», lo que le hace 
muy atractivo para quienes es¬ 
tén interesados en los juegos 
de empresas. Quizás parece 
haber demasiadas huelgas, pe¬ 
ro eso depende de la gestión 
que cada uno realice en «su 
empresa». 


Además de otros dos productos en 
fase de investigación. 

Un completo manual de 17 pági¬ 
nas informa de las distintas posibili¬ 
dades, si bien deja para la última pá¬ 
gina la forma de comenzar. Al cargar 
el programa hay que decidir entre 
JUEGO CARGADO o INICIAR 
UN NUEVO JUEGO, loque signifi¬ 
ca seguir con el resultado grabado de 
una sesión anterior, o comenzar. 
Una vez resuelto este pequeño inci¬ 
dente, se puede comenzar a dirigir la 
empresa, disponiendo de diversas 
opciones: Visual ¡¿ación de cuadros 
de resultados, decisiones de produc¬ 
ción, decisiones de marketing, deci¬ 
siones financieras, paso al siguiente 
ejercicio. 


Además, dado que Manageres una 
traducción de la versión francesa, el 
juego está adaptado a las normas del 
Mercado Común, con impuesto 
I.V.A. Esto puede suponer un poco 
de confusión al principio, especial¬ 
mente en la estructura de la cuenta 
de resultados y del Balance. 

La simulación de la realidad em¬ 
presarial está bien, aunque con «de¬ 
masiadas» incidencias laborales. Y 
tenga cuidado con los aumentos sala¬ 
riales: antes de pasaral siguiente ejer¬ 
cicio tendrá que revisar el precio de 
sus productos, si no quiere vender 
por debajo de su coste. 



Estudio de los emln 
di' ktí pnwhtffo. 
Nema rio pa m fijar 
los previos. 


PRODUCCION 

©10 

STOCK 

0 

UEhrrAS 

©10 

COSTES PRODUCCION 

1046.S£ 

PRECIO P.U.M.P 

104.6.52 

EFECTIUOS 

12 

SfiLRRIQS 

4-800 



















































¿FORTHenm 

* 

su mayoría, es preferible obviarlas. 
Básicamente nos vamos a referir a 
dos cuya disposición es parecida 
aunque una de ellas sea difícil de 
conseguir; Artic y Abersoft 


Para trabajar con FORTH en el Spectrum, como con 
cualquier otro lenguaje distinto del BASIC, es necesario un 
compilador. Alfonso Martínez responde a las preguntas 
que los lectores nos han formulado. 


L os nuevos lenguajes, como el 
FORTH, son, en general, 
programas en código máqui- 
iHBna, con algunas excepciones 
nada espectaculares en BA¬ 
SIC, que normalmente toma su¬ 
brutinas de la ROM como medida 
de ahorro de memoria. Esto en 
cierta medida adultera un poco el 
resultado, ya que la ROM del 
Spectrum está pensada para fun¬ 
cionar como intérprete y para ser 
usada por principiantes, aunque 
en realidad con estos programas se 
puede hacer exactamente lo mis¬ 
mo que si de verdad dispusiésemos 
de un sistema operativo en el len¬ 
guaje que estemos trabajando. 

En la mayoría de estos progra¬ 
mas es posible encontrar dos posi¬ 
bilidades de uso, bien como intér¬ 
prete o como compilador. Básica¬ 
mente la diferencia de cada posibi¬ 
lidad se puede resumir viendo las 
propiedades de cada una de ellas. 


Intérprete 

El programa es interactivo con 
el usuario, es decir, a medida que 
se va introduciendo el programa o 
los comandos, los corrige si es ne¬ 
cesario y los ejecutan secuencial- 
mente. Suele ser más largo y com¬ 
plicado que el compilador, dadas 
las múltiples situaciones que debe 
ser capaz de salvar. En ellos es 

I prácticamente imposible el blo¬ 
queo {siempre y cuando sean me¬ 
dianamente buenos). Un ejemplo 


muy cercano a nosotros es el ROM 
del Spectrum, que no es ni más ni 
menos que un intérprete de BASIC 
escrito en código máquina. 


Compilador 

El programa no es interactivo 
con el usuario, es decir, debe escri¬ 
bir todo el programa, ejecutar la 
subrutina que localiza errores sin¬ 
tácticos y posteriormente compi la, 
que no es ni más ni menos que tra¬ 
ducir el programa hecho en len¬ 
guaje de alto nivel a uno de bajo 
nivel como puede ser Assembler. 
En la mayoría de los programas 
comerciales se aprovecha el intér¬ 
prete construyendo un programa 
compilado consistente únicamente 
en llamadas a subrutinas que se 
encargan de hacer lo que el progra¬ 
ma mande. Esta opción tiene gene¬ 
ralmente el problema de los blo¬ 
queos, ya que la rutina de correc¬ 
ción es tan sólo sintáctica, pero no 
prevé resultados absurdos que 
pueden bloquear el programa. 

Lógicamente el FORTH no iba 
a ser una excepción y tiene varias 
versiones de programas traducto¬ 
res. Sólo existe un microordenador 
preparado exclusivamente para el 
FORTH (Júpiter Ace), por lo que 
los curiosos necesitamos de pro¬ 
gramas para hacer nuestros pini¬ 
tos, que en ciertas aplicaciones es 
insustituible. Para Spectrum exis¬ 
ten varias versiones, aunque algu¬ 
nas de ellas, escritas en BASIC en 


Artie 

En un principio fue pensada 
para el ZX-81, adaptada al Spec¬ 
trum posteriormente. Deben exis¬ 
tir varias versiones aunque parece 
difícil conseguirlas hoy día. Como 
nota destacada frente a la otra ver¬ 
sión, aparte de ser más “purista”, 
están las variables de control que 
ayudan mucho a la hora de progra¬ 
mar al dar una idea del estado del 
sistema. Otra característica, más 
bien anecdótica, consiste en indi¬ 
car el sistema que está utilizando, 
así utilizando el programa en un 
Spectrum, pulsando CPU obten¬ 
dremos ZX-Spectrum. Otra curio¬ 
sidad es la instrucción BYE que 
hace que salgamos del programa 
hacia el BASIC. En esta versión es 
la única forma de hacerlo. 


Abersoft 

Este es algo más “sucedáneo” ya 
que se le puede engañar y volver al 
BASIC utilizando algunas instruc¬ 
ciones erróneas, lo cual a veces 
ayuda a no liarse al no disponer de 
instrucción similar a BYE. Esta 
versión utiliza más direcciones de 
subrutinas de la ROM, es más cer¬ 
cano al funcionamiento del Spec¬ 
trum en BASIC sin abandonar en 
ningún momento la filosofía 
FORTH. Como nota destacada 
está la posibilidad de definir carac¬ 
teres que en las versiones inicíales 
de Artic no era posible. 






t 











i Spectrum? 


En resumen, cualquier versión 
puede servir para iniciarse en el 
FORTH y nuestra elección se debe 
basar sólo en la disponibilidad de 
uno u otro en cualquier momento. 
De hecho los ejemplos aquí descri¬ 
tos están hechos con la versión 
Abersoft, aunque en cualquier otra 
funcionaría. 

Si ya dispone del intérprete o 
compilador FORTH. pasemos al 
siguiente paso: cargar el programa. 
Si la versión es original, se autoeje- 


cutará y aparecerá el típico mensa¬ 
je del fabricante, año. programa y 
versión, aunque el orden puede va¬ 
riar de una versión a otra. En algu¬ 
na puede aparecer además la me¬ 
moria libre disponible. Además 
vamos a observar un mensaje al 
que vamos a acostumbramos bien 
pronto, que es OK, que Índica que 
el ordenador no ha encontrado 
problemas y está dispuesto a se¬ 
guir, esperando nuestras próximas 
instrucciones. Para no hacerte es¬ 


perar, nada mejor que pulsar EN- 
TER. a lo cual responderá con 
otro OK, indicando que no ha te¬ 
nido problemas en no hacer nada, 
que es lo que le hemos dicho que 
haga, con lo que hemos descubier¬ 
to que para comunicamos con él 
después de haber introducido las 
instrucciones hay que pulsar EN- 
TER. 

En FORTH las instrucciones 
deben ir separadas por un espacio 
y escritas directamente, letra a le- 


























tra, así por ejemplo BORDER no 
se obtiene pulsando la B, sino es¬ 
cribiéndola letra a letra. 

La siguiente pregunta que se for¬ 
mulará es cómo pasar de línea a lí¬ 
nea dentro del FORTH. Para ello 
existe la instrucción CR, Carriage 
Return, que la utilizaremos para 
pasar a la línea siguiente. Así, 
pues, si escribiésemos; 

1. (ENTER) 

obtendríamos en la misma línea 1 
OK, mientras que si ahora escri¬ 
biésemos; 

1. CR (ENTER) 

obtendremos no en la misma línea, 
sino en la siguiente: 1 OK. Así se 
puede ver la diferencia al utilizar 
CR. Lógicamente se podrán escri¬ 
bir cuantos CR queramos mientres 
estén separados por espacios sin 
preocuparse del scroll, que en 
FORTH se ejecuta automática¬ 
mente. 

La instrucción . lo único que 
hace es pintar el contenido del 

stack. 

Aquí surge la diferencia entre 
compilador e intérprete. Lo hecho 
hasta ahora ha utilizado la versión 
intérprete donde secuencialmente 
se han introducido las instruccio¬ 
nes y se han ejecutado al pulsar 
ENTER. Si esto lo quisiésemos ha¬ 
cer en versión compilada debería¬ 
mos escribir; 


; al 1 .CR; (ENTER) 

y para hacerle funcionar, debería¬ 
mos pulsar: 


al (ENTER) 



obteniendo lo mismo que antes 
aunque con una pequeña diferen¬ 


cia; para repetir el proceso no hay 
que volver a escribirlo, sino volver 
a pulsar al y ENTER. 

En realidad lo que hemos hecho 
ha sido definir una palabra, una 
definición nuestra. Básicamente la 
diferencia respecto a lo que había¬ 
mos hecho hasta ahora reside en 
los distintos signos utilizados que 
analizamos paso a paso: 

Al encontrarlo, el ordena¬ 
dor sabe que es principio de com¬ 
pilación, de inicio de definición, 
esperará un nombre. 

“al” Es el nombre que espera 


aproximadamente 

cuatro 

veces más rápido que el 
BASIC” 


el ordenador, y al cual habrá que 
referirse cuando queramos ejecu¬ 
tar la instrucción. No tiene su elec¬ 
ción mayor problema que el pri¬ 
mer carácter debe ser una letra, no 
debe contener ningún espacio y su 
máxima longitud es de 32 caracte¬ 
res. El ordenador será capaz de dis¬ 
cernir entre vocablos diferentes, 
siempre que el orden, cantidad o 
número de caracteres de la defini¬ 
ción sea diferente, siendo así dife¬ 
rentes las definiciones: 

al y a2 o COMP y COPM o ERE2 
y ER2 

“1 . CR” Similar a la versión in¬ 
térprete. Son sencillamente las ins¬ 
trucciones a realizar. 

M ;” Al llegar a este punto, el 
ordenador entiende que la compi¬ 
lación ha terminado y vuelve al 
modo intérprete, dando el informe 
OK, 


Si ahora pulsamos VL1ST ob¬ 
tendremos una gran tabla de pala¬ 
bras predefinidas, pero curiosa¬ 
mente la primera en aparecer será 
AI, que es la que hemos definido. 

Definamos ahora la palabra: 

: A2 . “ESTA PALABRA NO 
HACE NADA”; (ENTER) 

Si pulsamos VLIST podremos 
verla definida al lado de Al. Si 
ahora escribimos: 

FORGET A2 

y escribimos VLIST ahora no apa¬ 
rece, e incluso si escribimos A2 
aparcera un mensaje O, de error: 
no existe esa definición, ya que la 
instrucción FORGET elimina la 
palabra especificada. 

Ejemplos de compilación se 
pueden encontrar en el programa 
de números romanos que en 
FORTH aparece en TODOSPEC- 
TRUM en el número de enero, 
donde se definen las palabras, aun¬ 
que hay zonas que se usa el modo 
intérprete como la segunda línea 
donde se definen las variables. 

Otra diferencia apreciable entre 
los dos modos es su velocidad de 
interacción, que se puede mostrar 
para el siguiente ejemplo: 

Pulsemos . “Hola” (ENTER), y 
observemos la interacción. Ahora 
definamos : A3 . “Hola” ; (EN¬ 
TER) y pulsemos A3. ¿.Nota la di¬ 
ferencia? 

Sin embargo, dentro del modo 
compilador podemos introducir 
las instrucciones entre corchetes, 
como siempre separado con espa¬ 
cios. También tienen efecto pare¬ 
cido instrucciones como LITE¬ 
RAL o INMED1ATE. 

Existen versiones de FORTH en 
las que se pueden escribir progra¬ 
mas con números de línea, pero no 
hay que olvidar que no son núme¬ 
ros reales como puedan ser en BA¬ 
SIC, sino meramente representati¬ 
vos. En las versiones con esta op¬ 
ción se pulsa: EDITOR, indicando 
el ordenador el trabajo a realizar. 

Otra posibilidad muy útil que el 
FORTH dispone es crear un voca- 


pasa a la pág. 24 
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Exclusivo pana leetoneú de 


lotiospectnm 


Toma of evil 

| Arriesgúele! 1 

¿.Puede us-léd recuperar g, ibbq- 
io perdido^ Un*/¿ccíún que 
discurre a irakés de 40 d mas 
tnJsftiPltmeg le nseguran fwaí 
tía juego que cautivará su atan- 
■Ci-óf* 

* Numero de jugadores- uno 

* Gemí rol lúyfiúck o leelaQo 

* Dos pantallas de grélitos üb 
BíC^n rípiou 

■ El VIG-SO réquiore un cartu¬ 
cho BK 


DELTA WING 

Delta Wing es un avanzado li- 
mu lacro da combate en vuelo 
Ha sido diseñado para dar la 
de los 
de Id alia 
en yudo. Con T5 con¬ 
trolas Ii'idapand'iantas y aviones 
Úb ataque enemigos para derri¬ 
bar, este programa le Jlflva a 
ustad y a su Spectfurñ al limite, 
□alia Wing también permite co- 
nactar dos ordenadoras Spfie- 
Irum para jugar uno contra otro 
medíanle el m tí ríase 1 


Precio; 1 550 píos, 


RlYEíl ftiSCUE 


Un equipo de importantes cien¬ 
tíficos han quedado atrapados 
en una peligrosa |ungla. y la 
unten manera de sacarlos de ulh 
as b través del fio. Usted es el 
propiotítrid de una pótenla ida- 
raburda y sy iraCüio es resca- 
tartos. 

Navegar a través de uno de ios 
más salvajes y tortuosos nos del 
mundo no resulta fácil pero 
UStú-fl U0t¡e dlngrr rnagnjlica 
nava Corriente arriba sorteando 
pequeñas isías evitando coco¬ 
drilos y leños notantes a su 
pñSO EHífrule la lapidri y entu¬ 
sante acciüñ en este juego de 
alte energía L.i *ccidñ en ta 
panlarla rosante y el magnifico 
ido y gráficos le aseguran 
raigas horaa de dwatsion 


% 

Preció: 1.550 ptas. 


Precio: 1.550 pías. 


Usied as un piloto de pruebas 
ana monte entranitfo para pilo¬ 
tar el avión más destructiva Pis¬ 
te añora creado Dos pantallas 
con casi 30 niveles de habilidad 


precia: 1.550 ptas- 


Precla: 1-550 pías 


SPECIAL OELIVEftT 

Sania Cteus sa ancuanira metí- 
do an un terrible Ho; sa durmió 
en les laureles, y ahora no Pene 
suficienEas regalos pftré visitar a 
iodos loa impacientes ni nos 
Ayude e Santa Qaus a recoger 
regalos adiciónalas y después a 
descender sobro los legados pa 
rá entregar las regalas inlradu- 
eléndüse por las diversas chi¬ 
meneas. 

• Tres pantallas rodantes. 

■ Amplia animeción gótica y 

música, 


BLACK HAWK 


CANCER mq-usé 


Precia: 1-550 pisa. 


Ej malvado Barón Sitas Green- 
baek pa construido un androide 
que Dangsr Mquse debe des¬ 
truir sm pBT.jar uq momento 
Guie b Danger Mouse y a Pan- 
fóld a través de la espesa ¿ungía 
hasta el tugar donde se encuen¬ 
tra el Barón, y después detén¬ 
gale antes da que sea demasia¬ 
do tardé 

¿Puedé usted ayudar a Oanger 
Mousfl a salvar el mundo? 


I 



Preda; 1 550 pías 


RGAD RACE A 

Adelanta al primer coche y a otro mas 
su pulso 90 acelera y la tensión trace . 
¿podrí tomar ta delantera y ganar el 
l/cíao' 1 




Recorte y envíe este cupón HOY MISMO a INFODIS, S.A. Bravo Murilloi 377-5, °-A_ 28020 MADRID 



Preda: 1 550 píen. 


GOLD flUSH 

La emoci-únariíe aventura de te bús¬ 
queda de oto en un e^beño planeta 
Mamado frón. ¿Qué peligros le agual¬ 
dan ..f 


ENVIE A MI DOMICILIO 

LA CASSETTE □ CASSETTES RELACIONADAS A CONTINUACION 
EL IMPORTE LO ABONARE: 

POR CHEQUE i—3 CONTRA REEMBOLSO J CON TARJETA DE CREDITO 

American Exprés» - Vi»» . j InterbanJi LJ Fecha de caducidad _ 


Número de mi Tunela 


Nombre_____ _ ___ 

Dirección _ _ ,, _ 

Ciudad _____ ..... . ___ D.P 


Provincia 


cantidad 

producto 

ptaa. 

total 


























SIN MAS GASTOS DE ENVIO 






























































tan potente como el 
código máquina y tan 
sencillo 

como d BASIC” 


tamente. Al igual que en BASIC, 
en FORTH podemos cargar y gra¬ 
bar con instrucciones SAVE, 
LOAD y FLUSH. 

Una vez que el programa está 
introducido, para hacerle funcio¬ 
nar hay que invocar el nombre de 
la definición es decir, no existe una 
palabra como RUN, sino que para 
correr cada bloque se llama por su 
nombre. Lógicamente, dentro de 
una misma instrucción se pueden 
introducir palabras ya definidas, 
como en el ejemplo siguiente: 


bulario propio al que definimos 
como: VOCA BULAR Y MIO 
(ENTER), donde lo que hemos de¬ 
finido es un vocabulario que se lla¬ 
ma MIO y todas las definiciones 
que posteriormente hagamos esta¬ 
rán clasificadas dentro de un voca¬ 
bulario definido. Si quisiésemos 
borrar este vocabulario por cual¬ 
quier circunstancia, pulsaríamos: 

FORGET MIO. 


En FORTH existe además la po¬ 
sibilidad, inexistente en BASIC, de 
poder conocer los valores de las 
varibles del sistema con sólo lla¬ 
marlas, como por ejemplo: 

FIRST? 

apareciendo en pantalla el valor 
del primer bite de programa, cosa 
que en BASIC no es posible direc- 


: Al 1 .“NUMERO”; 

: AL2 10 o do AL1 I. CR LOOP; 

Desde dentro de AL2 se llama a 
ALL 

Además existen subrutinas muy 
útiles en FORTH como cuando 
queremos introducir números con 
más de un carácter, pudiendo utili¬ 
zar: 


-x 

SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 

Telf. (91) 7337969 

7 días por semana, 24 lloras a su servicio 

SUSCRIBASE A 

lbdospectrun 
























: INPUT PAD 1+ 64 EXPECT .0 
PAD (NUM BER) DROP DROP; 

esta subrutina se usa en el progra¬ 
ma de números romanos antes ci¬ 
tado. Si sólo queremos introducir 
números desde el O al 9 podemos 
utilizar: 

: UNCAR KEY 48 - DUP 


donde KEY es similarat INKEYS invocar una u otra con DECIMAL 
del BASIC, conteniendo el código o HEX. 

del carácter y 48 - normaliza el re- La versión Abersoft contiene 
sultado. además subrutinas típicas de la 

ROM del BASIC, pero con la mis- 
También es posible trabajar en ma filosofía del FORTH, como 
cualquier base entre 2 y 36, aun- pueden ser PLOT, DRAW, INK, 
que las más usuales sean la deci- PAPER o BORDER. Ejemplos de 
mal y la hexadecimal, pudiendo sus usos son, comparándolas con 

el BASIC: 


FORTH 


BASIC 


Figura 1: Informes más usuales del FORTH 


PLOT 33,33 
INK 7 
PAPER 2 


33 33 PLOT 
7 INK 

2 PAPER, ETC 


Código de error 


Mensaje de error 


Palabra que no está en el Diccio¬ 
nario, 

Stock vacío. Probar con . 
Diccionario lleno. En principio di¬ 
fícil. 

Cuidado, nombre no único. No 
compila el último nombre. Pro¬ 
bar: : ALM1 . “PRUEBA’* ; : 
ALM1 . ; aparecerá el infor¬ 

me de error y al hacer VLIST sólo 
habrá un ALM1 
Stock lleno. Igual que 2 
La palabra debe ser usada en defi¬ 
nición, al igual que en BASIC no 
puede usarse en programa EDIT 
Ejecución sólo 

Definición no acabada. Falta ; o 
THEN o similares 
En diccionario protegido. Intentar 
FORCET UDG 
Vocabulario protegido 


Y si se lo toma en serio y empie¬ 
za a trabajar con su ordenador, 
descubrirá que, al igual que otros 
lenguajes... ¡también obtendrá 
mensajes de error! Los más usuales 
se ofrecen en la figura I. 

Alfonso Martín 


REGISTER LATELV 
CONTINENTAL, S.A, 
Avda. de Roma, 175, 5.°-4. 
08011-BARCtlONA 
Tel. (93) 254 49 38 
Información; Sr. FEKRER 


NUESTRA EMPRESA 
AL SERVICIO DE TODOS 


O VARIABLE CONTADOR 
CUENTAS 0 CONTADOR ! 

CR 

O BEGIN 
KEY DUP EMIT 

CONTADOR $ I + CONTADOR ! 

DUP 13 * UNTIL 

CR " LA LONGITUD ES " CONTADOR 

DROP CR 

BEGIN 

EMIT DUP 

WH1LE 

REPEÁT 

DROP CR , 


DEPARTAMENTO COMERCIAL; 


Microprocesadores y ordenadores de gestión (gama 
Commodore) para el particular y Empresa, 

Programas educativos, de juegos y de diferentes aplica¬ 
ciones. (Gestión, contabilidad) 


CARACTERES 


DEPARTAMENTO DE ESTUDIOS 


Cursos Programación Basic y Cobol. 

Cursillos de grabación. 

Prácticas con ordenadores y micro en la propia 
Empresa. 






Hoy, en solitario. 

Dentro de muy pocos años, la informática será un instrumento imprescindible para el 
conocimiento y el desarrollo de la sociedad. Y para construir este futuro, es necesario que 
hoy surjan, se promocionen y se ponga de relieve la labor silenciosa y en solitario de muchos 
nuevos valores que con toda seguridad existen. 

Para hacerlo posible, la Generalitat de Catalunya organiza el 1 er Festiva! de Software. 
A él pueden enviar sus trabajos todas aquellas personas o grupos que hayan creado progra¬ 
mas informáticos. 

La fecha límite para la presentación de programas, será el 30 de Mayo, y en Octubre,se 
exhibirá públicamente ios seleccionados,que serán puntuados por el público, con cuyos crite¬ 
rios y los del jurado se entregarán los diversos premios, que incluyen una categoría juvenil. 

Participa. Y ojalá éste sea tu primer paso hacia el éxito. 

























































































































Mañana, el éxito 


i 


Deseo toda la información 

Deseo recibir ias bases para participar en el 1 er Festival de Software 

Tipo de programas que desearía presentar. Programas en CU catalán O castellano 

Ordenador necesario (marca y modelo),__:-,- 

Pantalla LÜ Color ED B/N Impresora (si es necesaria) _ 

Otras periferias o extensiones_____ 


Nombre y apellidos. 
Dirección_ 


. Ciudad 


Envíe este cupón al Centre Divulgador de la Infomiatica* Ap, de Correos 5185. Barcelona* 


GENERALITAT 
DE CATALUNYA 

CENTRE 

DIVULGADOR DE 
LA INFORMÁTICA 


EL CENTRE DIVULGADOR 
DE LA INFORMATICA 
ORGANIZA ESTE I FESTIVAL 
DE SOFTWARE EN C OLABOR ACfÓN 
CON LA ASOCIACIÓN DE 
TÉCNICOS DE INFORMATICA E 
INFDRMAT FERIA DE BARCELONA 




















































































USU^/P S 


áiffiá^saaílí 


SeÓboS 


ANO II fttum 17 Alvtl 1S» „’ítO Ptiis 


Mapa para jugar al 

ATIC-ATAC 

Física: ^ i 
Dinámica de i 
una partícula l| 

Estiiiiira \ s 
tus caracteres 











so que ocupe la mayor parle de la 
memoria, será necesario situar la 
rutina en el buffer de la impresora, 
que será posible gracias a que sólo 
ocupa 229 bytes de longitud. 

El método de introducir la clave 
y la rutina de comprobación se 
han diseñado cuidadosamente. 
Cuando llamemos a la rutina la 
pantalla se limpiará y aparecerá la 
pregunta “INTRODUZCA LA 
CLAVE”. A continuación se ha de 
introducir la clave correcta. 

Deberá anotar los datos siguien¬ 
tes: mientras se introduce la clave 
se escuchará un beep después de 
cada pulsación; cualquier cosa que 
se introduzca no aparecerá en la 
pantalla; no se ha incluido la fun¬ 
ción de autorrepetición de las te¬ 
clas y al finalizar de introducir la 
clave se ha de pulsar ENTER. 

La clave no se visualizará en la 
pantalla mientras se está teclean- 


Una clave, please 


E l almacenamiento de infor¬ 
mación en cassette es muy 
eficiente, pero el método 
i elegido para estructurarlo 
hace que la protección de 
los programas sea difícil. Cada blo¬ 
que de datos o programas está pre¬ 
cedido por una cabecera, que es 
un pequeño bloque de datos conte¬ 
niendo información sobre las ca¬ 
racterísticas principales, por ejem¬ 
plo, la longitud, dirección de co¬ 
mienzo y el tipo de datos que hay. 

Los usuarios que hacen su pro¬ 
pio software no tienen forma de 
proteger sus programas para evitar 
su lectura ilegal, por lo que puede 
ser útil una rutina que requiere la 
introducción de una clave para po¬ 
der entrar al listado. La rutina no 
permitirá el acceso al programa 
hasta no introducir la clave correc¬ 


ta. 

La clave podrá tener la longitud 
que especifiquemos, siempre y 
cuando tenga al menos un carác¬ 
ter, y se puede alterar con la infor¬ 


mación adecuada, siempre que 
haga falta. Una vez aclarado esto, y 
programado, la rutina hace un 
buen trabajo al evitar que se abran 
los programas. 

También hay una característica 
incluida para ías distintas versio¬ 
nes que se han de hacer. Por razo¬ 
nes de seguridad el listado desen¬ 
samblado del código máquina no 
se ha incluido, pero más adelante 
se explica detalladamente. El códi¬ 
go, que está en el programa como 
un volcado decimal, no es relocali- 
zable. Sin embargo, para prevenir 
que se limite la utilidad del código, 
el programa en BASIC requerirá 
que se le introduzcan los detalles 
de la asignación de memoria, y se¬ 
gún se vuelca el código a la memo¬ 
ria se ajusta la dirección absoluta 
para que corresponda con la direc¬ 
ción requerida. Esto significa que 
cada vez que quiera preparar la ru¬ 
tina se ha de ejecutar el programa 
cargador de nuevo. Si se desea aña¬ 
dir la rutina a un programa exten- 


do, de manera que si alguien está 
observando cuando se introduzca, 
encontrará difícil descifrar lo que 
se está tecleando. Es fácil seguir 
mentalmente dónde se encuentra 
uno mientras se introducen los da¬ 
tos, especialmente con el beep del 
teclado. No existe la posibilidad de 
autorrepetición y esto le evita 
equivocarse debido a dejar una te¬ 
cla pulsada más del tiempo desea¬ 
do. 

Aunque la necesidad de pulsar 
ENTER después de introducir la 
clave parece ser innecesaria, y se 
podía evitar, tiene una serie de 
ventajas. Permite la posibilidad de 
utilizar claves de distinta longitud, 
en vez de mantener la misma lon¬ 
gitud siempre, ya que esto seria 
una limitación, además permite a 
la rutina llevar un control acerca 
de los intentos llevados a cabo al 
introducir la clave fia importancia 
de esto se verá más adelante) y 
también evita que cualquier usua¬ 
rio que desconozca la clave dé con 














ella por equivocación y se intro¬ 
duzca en nuestro programa han de 
pulsar ENTER para que se com¬ 
pare la palabra introducida por la 
clave. 

Si ya ha visto el programa carga¬ 
dor, observará que a la variable 
“offset” ha de asignársele un valor 
cuando se ejecuta el programa. 
Esto es una característica de la ru¬ 
tina que permitirá efectuar versio¬ 
nes alternativas de ella, cada una 
algo distinta de otra. A la variable 
“offset” se le ha de asignar un va¬ 
lor entre 0 y 128 inclusive. No es 
necesario acordarse de dicho valor 
cada vez que introduzca la rutina, 
pero dando valores diferentes ase¬ 
guraremos que la rutina sea distin¬ 
ta cada vez que accedemos a ella, 
haciendo más difícil “romper” los 
programas. 


No se permite el acceso 
al programa hasta que 
se introduce 
la clave correcta 


Cuando tecleamos la clave de¬ 
seada en el programa cargador, se 
debe tener en cuenta que las 
mayúsculas y minúsculas se dife¬ 
rencian y cuando el código máqui¬ 
na lea del teclado, sólo se verán le¬ 
tras minúsculas, a no ser que se 
mantenga pulsada la tecla CAPS 
SHIFT mientras se teclea. La ruti¬ 
na aceptará números e incluso 
cualquier carácter que se obtenga 
al pulsar la tecla SYMBOL SHIFT 
excepto los comandos (NOT, 
STEP, TO, AND, ETC). Si utili¬ 
zas comandos dentro de la clave, la 
rutina se vendrá abajo, o en el me¬ 
jor de los casos será imposible de 
introducir. 

Tampoco podrá utilizar ningún 
carácter que se obtenga con el cur¬ 
sor en el modo “E”, por ejemplo, 
no utilizar cualquier carácter o co- 

I mando que estén en la parte supe¬ 
rior e inferior de las teclas en rojo y 
verde respectivamente, ya que es¬ 


tos son imposibles de introducir en 
código máquina. Para evitar desas¬ 
tres, se deberán probar las claves 
antes de incorporar la rutina a 
nuestros programas. Es mejor ase¬ 
gurarse que la clave funciona co¬ 
rrectamente antes de que nos sea 
imposible introducimos en nues¬ 
tro propio programa debido a que 
hemos elegido una clave ilegal. 

Otra característica de esta rutina 
que excluye a los “piratas” está el 
tiempo de retardo que empleamos 
conjuntamente con el teclado. Está 
implementado de dos maneras dis¬ 
tintas: la primera es como un dis¬ 
positivo de autodestrucción. 
Mientras se ejecuta la rutina el 
programa cuenta el tiempo que se 
tarda entre pulsación y pulsación. 
Si alguna vez este tiempo supera 
los diez segundos el ordenador se 
borrará (NEW) automáticamente. 
Esta característica está diseñada 
para evitar que se prueben las 
combinaciones posibles secuen- 
cialmente. 

La otra característica también 
ayuda al respecto, aunque no 
cuenta en tiempo real. La rutina 
contará el número de intentos lle¬ 
vados a cabo. Podrá equivocarse 
una vez, incluso dos veces, pero a 
la tercera se autodestruye, borran¬ 
do todo. 

Añadir la rutina en código má¬ 
quina a los programas ya escritos 
no es ningún problema. Puede lla¬ 
mar a la rutina desde el inicio del 
código máquina mediante una lla¬ 
mada (CALL) a la dirección de co¬ 
mienzo y luego proceder a la eje¬ 
cución del programa. Si el usuario 
se equivoca al introducir la clave, 
será imposible acceder a la rutina 
principal, en código máquina. 

También es posible añadir la ru¬ 
tina a programas en código máqui¬ 
na, con una condición: tiene que 
haber la suficiente memoria libre 
para poder ubicar la rutina, la cla¬ 
ve y el buffer de entrada de datos. 
Si encuentra ese espacio suficiente, 
la conversión es inmediata. Todos 
los programas en código máquina 
han de ser llamados desde un pe¬ 
queño programa en BASIC. Este 
programa puede constar de dos 
instrucciones: 

1 LOAD “” CODE: RANDOMI- 
ZE USR dirección de comienzo 


Esto permitirá, que al autoejecu- 
tar un programa se cargue la rutina 
y llame al código máquina. El pro¬ 
grama cargador podrá contener co¬ 
mandos (INK, PAPER, BORDER, 
ETC) que limpiarán la pantalla y 
la dejará presentable para cargar el 
programa, hasta podrá tener más 
de un bloque para cargar. Esto no 
le afectará. 



Para incluir la rutina de seguri¬ 
dad de la clave haga lo siguiente: 

1. Modifique el programa car¬ 
gador al comienzo del software de 
la manera siguiente: después de to¬ 
dos los comandos LOAD “” 
CODE, inserte dos instrucciones 
LOAD CODE más. 

2. Escriba la dirección de co¬ 
mienzo de RANDOMIZE USR di¬ 
rección de comienzo, normalmen¬ 
te al final (esto puede ser alternati¬ 
vamente LET a = USR dirección 
de comienzo o también un PRINT 
USR dirección de comienzo. 

3. Trabaje donde coloca los 
229 de la rutina en la memoria y 
escriba esta dirección en la instruc¬ 
ción RANDOMIZE USR en el 
programa, de manera que el BA¬ 
SIC llame a la rutina de seguridad. 

4. Guarde (SAVE) el programa 
cargador en BASIC modificado en¬ 
cima del programa antiguo al co¬ 
mienzo del software. 

5. Carque (LOAD) o teclee la 
rutina cargadora de la clave. 

6. Convierta la dirección que 
escribió anteriormente en el for¬ 
mato HOB/LOB (High/Low order 
byte), tal y como aparece en la pá¬ 
gina 173 del manual, con la excep¬ 
ción de que no se hace POKE n, (o 
POKE n+1), sólo se imprime. 

7. EDITe la última línea de la 
DATA en el programa cargador, 
sustituya el 201 y en su lugar pon¬ 
dremos, primero 195, luego una 


(pasa a la pág. 39) 
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i Por fin llega el GL! 

Pocos ordenadores han levantado tanta expectación 
como el nuevo Quantum Leap, conocido simplemente 
como QL Y es que, hay que reconocerlo, Sinclair sigue 
siendo el líder mundial en ordenadores de bajo precio y se¬ 
guirá siéndolo por mucho tiempo mientras continúe batien¬ 
do sus propios récords, desde el ya legendario Timex 1000 
que no ilegó a comercializarse en España, hasta el nuevo 
QL, dispuesto a pisar fuerte en el mercado de ordenadores 
doméstico-profesionales. 

¡Por fin llega el QL! 

Pero no llega solo. En este suplemento analizamos los 
distintos productos hard y soft que lo acompañan, junto a 
los proyectos españoles en marcha y que pretende ser el 
embrión de una futura revista independiente de usuarios QL 


Muchas son las noticias que 
hemos de daros sobre el mun¬ 
do Sinclair, por el momento 
casi exclusivamente del mer¬ 
cado inglés. 


Monitores 

La alta resolución del QL, 
junto con la anchura de la ima¬ 
gen que produce han motiva¬ 
do la aparición de numerosos 
monitores "especiales QL". 


En esta sección de noticias, 
tan solo nos fijaremos en los 
más importantes, presumible¬ 
mente aquellas que podremos 
tener en España en breve. 


Los formatos elegidos son 
12 y 14 pulgadas en color a 
precios asequibles, a partir de 
96.000 pías, el modelo de Mi- 
crovitec, primero en aparecer 
en el mercado español. 



Libros 


Se prepara una gran avalan¬ 
cha de información escrita so¬ 
bre todo lo que usted pueda 
imaginar sobre este ordena¬ 
dor. La editorial RA-MA pare¬ 
ce ir por delante con sus dos 
primeros títulos ya a la venta, 
en español: "Manual de refe¬ 
rencia para el Sinclair QL" de 
Tim Hartnell, y "Explorando el 
Sinclair QL. Una introducción 
al Superbasic" de Andrew 
IMelson. 


CP/M para el QL 

La empresa QL+ comerciali¬ 
za una tarjeta con un Z80, 
64K de memoria, y el software 
necesario para la comunica¬ 
ción con el QL. En pocas pala¬ 
bras, una tarjeta CP/M. La ex¬ 
tensión incluye un interface 
Centronics y nos da la posibili¬ 
dad de usar la gran cantidad 
de programas que existen 
para ese operativo. 

Por otro lado Quest ha de¬ 
sarrollado una versión del 
CP/M que "corre" con el pro¬ 
cesador 68008, pensando en 
su uso en máquinas desarro¬ 
lladas a partir de este procesa¬ 
dor. El sistema funciona con 
microdrives o diskettes y se 
plantea como una alternativa 
alQDOS. 

































Esto es el K/OS 

El 68 K/OS es un sistema 
operativo, resultado de un 
contrato de GST con Sinclair 
para diseñar el sistema opera¬ 
tivo del QL Finalmente no se 
montó con la máquina y ahora 
la empresa lo ofrece en ROM, 
como una alternativa al 
QDOS. El sistema ofrece una 
serie de utilidades en Micro- 
drive, pero (de momento) sólo 
se puede programar con el en¬ 
samblador, por lo que parece 
difícil que logre ocupar el sitio 
del QDOS. 

¿Qué QL? 

Existen en este momento 
varias versiones del sistema 
operativo del QL Cuanto más 
moderno, menos errores. Para 
saber la "edad” de nuestra 
máquina, basta teclear PRINT 
VER$. El ordenador escribirá 
FB, AH o JM. Esta última co¬ 
rresponde a la versión vigente 
en este momento. La versión 
2.0 que se lanza en breve pa¬ 
rece que irá etiquetada como 
JS. 


Interfaces 

Ante la falta de interface 
Centronics standard para el QL 
muchas empresas se han lan¬ 
zado a "tapar el hueco”, por lo 
que en el mercado inglés 
abundan los adaptadores e /n- 
terfaces para conectar impre¬ 
soras Centronics al QL. Los 
precios están alrededor de las 
8,000 ptas. 


Para quienes quieran utilizar 
su QL en el control de instru¬ 
mentos de laboratorio u otro 
tipo de aparatos que utilicen el 
standard IEEE-488, CST ma¬ 
nufactura un interface para 
utilizar este standard, también 
utilizado por impresoras y plot- 
ters de calidad. El puerto de 
comunicaciones es totalmen¬ 
te accesible desde el QDOS. 



Discos 


Hasta el momento ya han 
salido cuatro versiones de 
controladores de disco flexi¬ 
bles (hasta 720 Kbytes) y una 
unidad de disco duro de 7.5 
Megabytes. 

Quest, una de las casas de 
software especializada en ei 
QL "obliga” a utilizar CP/M 
68K (Sistema operativo dise¬ 
ñado para el QL por la misma 
firma) para utilizar sus unida¬ 
des de disco. Las restantes 
unidades pueden funcionar 
con el QDOS (Sistema opera¬ 
tivo del QL). 

En cuanto a precios, hay 
gran variedad dependiendo 
del interface y tipo de disco 
elegido, oscilando entre 
60.000 y las 240.000 ptas. 
del disco duro. 


NITKMS 
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Con un diseño muy 
agradable a la vísta, al 
sacar el QL de su caja 
nos da la impresión de 
que Sinclair ha progre¬ 
sado mucho desde el 
Spectrum. El teclado es 
"standard” QWERTY de 
65 teclas, muy estético, 
pero no llega a fia calidad 
profesional. Las teclas 
tienen un recorrido largo 
y poca tolerancia res¬ 
pecto al ángulo de pul¬ 
sación. Adecuado para 
mecanógrafos “ama- 
teurs". 

En la versión española, 
los acentos y la Ñ ocu¬ 
pan su lugar habitual en 
las máquinas de escribir 
La teda CONTROL, clá¬ 
sica de otros ordenado¬ 
res, da acceso a todo el 
juego de caracteres. Cin¬ 
co teclas de fundón ali¬ 
neadas en dirección ver¬ 
tical en la parte izquierda 
de! teclado facilitan el 
manejo de opciones en 
ios programas. 

Si queremos conectar 
el QL a una pantalla, dis¬ 
ponemos de toma de te¬ 
levisión (UHF) parecida 
a la del Spectrum, Tam¬ 
bién se puede conectar a 
monitor mediante una 
clavija RGB. El cable de 
TV está incluido con el 
aparato; no así el cable 
de video. La resolución 
gráfica es generosa, con 
512 por 256 puntos en 
4 colores o 256 x 256 
puntos en 8 colores. La 
imagen tiende a "'rebo¬ 
sar J en algunos monito¬ 
res, por lo que, sí ya te¬ 
nemos uno, deberemos 
asegurarnos de que la 
pantalla del QL “cabe " 
en él. 

Las características 
gráficas del QL ocupan 
32K de las 128K que 
trae. Esta capacidad de 
memoria, ampliadle a 
640K, puede parecer 
excesiva al usuario 
acostumbrado a fias 48K 
del Spectrum, pero se 
queda pequeña con cier¬ 


ta rapidez en un uso pro¬ 
fesional, 48K de ROM 
incluyen el sistema ope¬ 
rativo (QDOS) y el BA¬ 
SIC; sus características 
son comentadas poste¬ 
riormente. 

La parte trasera del 
aparato incluye conecto- 
res para periféricos. Una 
expansión de ROM de 
16K permite extensio¬ 
nes de! BASIC y cone¬ 
xión de otros lenguajes o 
periféricos. A continua¬ 
ción nos encontramos 
dos entradas para joys- 
ticks y dos "puertos” 
RS232C para impreso¬ 
ras o "módem”; los cua¬ 
tro están dotados de cla¬ 
vijas no "standard". La 
conexión UHF y la salida 
video vienen a continua¬ 
ción. La lista finaliza con 
dos conexiones para 
Red Loca), análogas a 
las del ZX tnterface / sin 
olvidar la ampliación 
para Microdrives (hasta 
6 más) en el lateral dere¬ 
cho. E! bus de expansión, 
para ampliación de me¬ 
moria y periféricos, que¬ 


da oculto en el lado iz¬ 
quierdo. 

En una máquina pen¬ 
sada para uso profesio- 
nal no puede faltar un 
medio de almacena¬ 
miento externo. Sinclair, 
fiel a los Microdrives , ha 
colocado dos en la parte 
anterior derecha del QL 
Cada uno almacena algo 
más de 100K, con tiem¬ 
pos de acceso algo peo¬ 
res que las unidades de 
diskettes. Su fiabilidad 
ha sido puesta en entre¬ 
dicho, aunque nosotros 
no encontramos gran¬ 
des problemas en su 
uso. Tras la bajada de 
precio de los cartuchos 
su único inconveniente 
serio es la capacidad. 


En el interior del QL 
encontramos un Moto¬ 
rola 68008. Este proce¬ 
sador es el “hermano 
pequeño” de la familia 
68000, Sus registros 
son de 32 bits, y direc- 
ciona 1 Mbyte de me¬ 
moria. Con un bus de da¬ 
tos de 8 bits, hay que es¬ 
perar cuatro cíelos de 
memoria para “llenar” 
un registro; resulta, por 
tanta a figo más lento 
que sus hermanos. Su 
reloj interno trabaja a 7 
MHz, Para descargar de 
trabajo al 68008 en las 
tareas pesadas hay un 
microordenador, el 
8049 de Intel, que se 
encarga de la lectura del 
teclado, el altavoz y la 
comunicación serie. 

Aunque Sinclair inten¬ 
ta entrar en el mercado 
profesional con esta má¬ 
quina, no parece fácil 
que consiga vender en e! 
mercado de las grandes 
empresas, debido a la 
alta sensibilidad que 
muestran estas casas 
hacia la compatibilidad 
IBM. El QL podría enca¬ 
jar mejoren el campo de 
las profesiones liberales, 
así como en ¡as peque¬ 
ñas empresas, donde el 
coste del ordenador y 
del software se convierte 
en un condicionante im¬ 
portante. Para este tipo 
de usuarios, el QL ofrece 
una excelente relación 
precio-prestaciones, in¬ 
cluyendo con la máquina 
unos paquetes de soft¬ 
ware que va fien, a pre¬ 
cios de mercado, más 
que la propia máquina. 
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Para facilitamos el 
"arranque" con el GL, el 
precio incluye cuatro 
programas de gestión: 
un procesador de texto 
(GUI LL), una base de da¬ 
tos (ARCHIVE), una hoja 
de cálculo (ABACUS) y 
un programa de gráficos 
profesionales (EASEL). 

La principal caracte¬ 
rística de GUILL es que 
presenta en cada mo¬ 
mento en pantalla lo que 
aparecerá en la impreso¬ 
ra, Los menüs de definí- 
ción de márgenes y tipo 
de letra son flexibles, 
siendo también cómoda 
la inserción y el borrado. 
El programa presenta 
opciones para cargar, 
grabar y combinar fiche¬ 
ros desde microdríve r así 
como Sa opción import, 
que permite editar tex¬ 
tos generados por los 
otros programas. La in¬ 
comprensible falta de un 
programa de maiíing, 
que permitiría la perso¬ 
nalización de cartas me¬ 
diante la base de datos, 
es su principal defecto. 


Y ya que estamos con 
ARCHIVE, sigamos. Es 
un programa muy versá¬ 
til, donde el usuario dis¬ 
pone de un lenguaje de 
programación que per¬ 
mite la gestión de la 
base de datos 'a ta me¬ 
dida". Similar al Super- 
Basic, admite subrutinas 
con parámetros, varia¬ 
bles locales y facilita la 
programación estructu¬ 
rada. La presentación en 
pantalla es definible me¬ 
diante un editor de gran 
simplicidad 

Una característica 
muy interesante de AR¬ 
CHIVE es que se puede 
crear un fichero sin defi¬ 
nir "a priorí" la longitud 
máxima de cada campo: 
el programa almacena 
registros de longitud va¬ 
riable, Una característica 
útil, ya que en un medio 
de poca capacidad como 
el microdríve et desperdi¬ 
cio de memoria se paga 
muy caro Existe (a posi¬ 
bilidad de trabajar simul¬ 
táneamente con varios 
ficheros, ordenarlos por 


varios campos... En fin, 
sólo se le puede objetar 
la lentitud de acceso y la 
escasa capacidad de los 
microdrives. 

Una imagen vale más 
que 1 K (1 024 palabras). 
Y !o que hace EASEL es 
convertir nuestros datos 
en imágenes. Resulta 
con mucho el más fácil 
de usar del paquete, ya 
que la pantalla refleja in¬ 
mediatamente todas 
nuestras órdenes y ajus¬ 
ta (si es necesario) (a es¬ 
cala. Las opciones se eli¬ 
gen, por menú, con valo¬ 
res por defecto en casi 
todas las situaciones. 

Se puede dibujar con 
tres formatos básicos: 
diagrama de barras, lí¬ 
neas o "tarta". Dentro 
de cada uno hay una fle¬ 
xibilidad en la elección 
de formas y colores. Sí 
queremos representar 
varias figuras, el progra¬ 
ma 'hará sitio" automá¬ 
ticamente, Se pueden 
introducir Comentarios 
en e! dibujo. 

La capacidad es sufi¬ 


ciente para cualquier 
uso realista y existe la 
posibilidad de "traer" los 
datos de ARCHIVE o 
ABACUS. Para copias 
en papel se requiere una 
impresora compatible 
Epson. 

ABACUS completa el 
lote de programas de 
Psion, Se trata de una 
hoja de cálculo "inteli¬ 
gente". Muy útil siempre 
que tengamos que pro¬ 
cesar datos, aunque su 
facilidad de programa¬ 
ción hace que se usen 
cada vez más en todo 
tipo de problemas. ABA- 
CUS permite la referen¬ 
cia a filas o columnas 
mediante nombres sim¬ 
bólicos. También se pue¬ 
de cambiar a voluntad el 
ancho de cada columna 
y recorrer la tabla me¬ 
diante ventanas. Su 
principal defecto es la 
escasez de memoria (re¬ 
mediable con la amplia¬ 
ción) y la falta de protec¬ 
ción de las fórmulas. Por 
lo demás, un programa 
impecable, donde la faci¬ 
lidad de uso se aúna con 
la potencia. 

Pese a las duras críti¬ 
cas que recibieron en In¬ 
glaterra las primeras ¡ 
versiones de los progra¬ 
mas, la casa ha realizado 
un considerable esfuer¬ 
zo de mejora. En la ver¬ 
sión 2.01 los programas J 
residen íntegramente en 
memoria, y sólo se acce¬ 
de a microdríve cuando 
pedimos "ayuda". Están 
escritos en castellano y 
admiten los caracteres 
españoles. Les pudimos 
echar una ojeada y nos 
sorprendieron los tiem- J 
pos de carga y la veloci¬ 
dad de ejecución. La 
guerra de precios en el 
mercado profesional es¬ 
pañol va a comenzar. 

Los próximos meses di¬ 
rán si la apuesta de Sin- , ¡ 
claír le convierte de nue- i 
vo en ganador. 
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Siendo el QL un ordenador 
muy poco convencional, no 
cabe la menor duda de que su 
BASIC tenía que ser poco co¬ 
rriente, En efecto, el Super- 
Basic se parece tan poco al 
BASIC que incorporan otros 
ordenadores, que Sinclair es¬ 
tuvo tentado de cambiarle el 
nombre. Pero ésto supondría 
un choque psicológico para el 
usuario que sabe programar 
en BASIC, posiblemente reti¬ 
cente a aprender un idioma 
nuevo. Y en muchos aspectos 
el Super-Basic es un idioma 
nuevo. 

Incorpora todas las caracte¬ 
rísticas standard de los dialec¬ 
tos BASIC más usuales. Pero 
va mucho más allá. Por ejem¬ 
plo, los comandos GO TO y 
GO SUB han sido incorpora¬ 
dos "por compatibilidad” y se 
nos recomienda que los utili¬ 
cemos lo menos posible. En su 
lugar, se nos recomienda el 
uso de procedimientos y fun¬ 
ciones. 

Los procedimientos son el 
equivalente a las subrutinas 
de otros idiomas. Para los 
poco familiarizados con el 
concepto, suponen un progra¬ 
ma que acepta una serie de 
parámetros y modifica unas 
variables o realiza una acción, 
En suma, lo mismo que los co¬ 


mandos del BASIC, pero con 
capacidad para realizar accio¬ 
nes complejas. 

Las funciones son análogas 
a los procedimientos, pero de¬ 
vuelven, como las del BASIC, 
un resultado. Ya no están, 
como en el Spectrum, restrin¬ 
gidas a una sola línea. Su uso 
permite el diseño modular de 
programas, haciéndolos mu¬ 
cho más legibles. 

Todos los identificadores 
pueden tener hasta 255 ca¬ 
racteres, comenzando por una 


La definición 
de procedimientos 
permite ampliar 
el lenguaje 


letra. Esto vale para los nom¬ 
bres de variable, subrutina o 
función. Análogamente a 
otros dialectos, si el nombre 
de una variable acaba en "%" 
la variable es entera, lo que 
permite ahorrar memoria; si 
acaba en "$”, se trata de ca¬ 
denas de caracteres. 

Otros detalles que expresan 
la potencia del Super Basic 
son las estructuras de control: 
la instrucción IF ... THEN que¬ 
da completada por ta posibili¬ 
dad ELSE ... ENDIF de tomar 


una decisión si no se cumple 
la condición. Al bucle FOR ... 
NEXT se le añaden las pala¬ 
bras EX IT y END FOR, que 
permiten una mayor compleji¬ 
dad. Una construcción nueva 
es el bucle REPEAT... NEXT... 
END REPEAT, que, mediante 
la posibilidad del EXIT permite 
construir ciclos sin necesidad 
de referenciar nunca números 
de línea. 

En el Super Basic no exis¬ 
ten las funciones VAL, VAL$ y 
STR$. No son necesarias: la 
conversión entre números y 
cadenas es realizada automá¬ 
ticamente por el intérprete. 
Por ejemplo, a - "2" + "3” de¬ 
vuelve 5 en a, a$ - "2" + "3” 
deja a$ = ”5'' y a$ = ”2”&3 
deja "23" en a$. Un concepto 
potente, llamado coerción. 

La unión de un lenguaje al¬ 
tamente estructurado, de po¬ 
tentes sentencias de control, 
con una gran cantidad de co¬ 
mandos que explotan todas 
las posibilidades de la máqui¬ 
na, más su fácil extensibilidad 
mediante código máquina, ha¬ 
cen que este lenguaje merez¬ 
ca efectivamente el prefijo de 
Super con que sus creadores 
lo han calificado. Uno de los 
puntos más fuertes de esta 
máquina, como candidata a su 
uso para el aprendizaje. 


Otros lenguajes 

Los compiladores e intér¬ 
pretes de otros lenguajes para 
el QL han aparecido con una 
rapidez inesperada. Hasta el 
momento se pueden encon¬ 
trar tres ensambladores dis¬ 
tintos, dos compiladores de 
Pascal, un Forth... Incluso len¬ 
guajes difíciles de encontrar 
para microordenadores, como 
el Lisp, el APL, el BCPL o el C, 
han aparecido rápidamente 
para el QL La razón es simple, 
se trata de una de las primeras 
máquinas de precio asequible 


que llevan un procesador de la 
familia 68000, a la que todos 
auguran un gran futuro. Y las 
casas de software se han lan¬ 
zado a producir para estar ins¬ 
talados cómodamente cuando 
se amplíe el mercado. Lo que. 



de rebote, redunda en benefi¬ 
cio del usuario que quiera pro¬ 
gramar en estos idiomas. En 
futuros números os contare¬ 
mos más acerca de estos len¬ 
guajes, que sonarán ”a chino” 
a muchos lectores. 











Aplicaciones madeinSpain 


Las casas de software no 
ven al QL como un ordena¬ 
dor de juegos, y piensan se¬ 
riamente en las aplicacio¬ 
nes. 

Investrónica ya está pre¬ 
parando programas de nó¬ 
minas, contabilidad, agen¬ 
da, paquete de arquitectura 
(mediciones y presupues¬ 
tos, cálculo de pórticos y de 
estructuras) y diversas apli¬ 


caciones "verticales" para 
médicos, abogados, nota¬ 
rios, etcétera. 

Afsi comercial está adop¬ 
tando sus programas Spec- 
trum para la facturación, 
control stocks, mailing, le¬ 
tras de cambio, y hasta un 
programa especial para 
dentistas. 

Son tan sólo dos ejem¬ 
plos de lo que nos espera. 



Easel: aplicaciones "en serio". 


Hasta ahora, en este corto 
suplemento QL, hemos visto 
las características principales 
del ordenador. Pero nos había¬ 
mos dejado lo más importan¬ 
te: su buena aceptación por el 
público y casas de software 
made in Spain. Este es el caso 
de Pedro Pérez, consejero de¬ 
legado de World-Micro, quien 
nos da sus impresiones, des¬ 
pués de un largo año de traba¬ 
jo con el QL: "Investrónica ya 
no es aquella casa que posi¬ 
blemente por casualidad trajo 
el ZX81, ahora es una empre¬ 
sa serta y esto da confianza, 
sobre todo si es un producto 
Sinclair. Pero lo más impor¬ 
tante es que a !a gente le gus¬ 
ta el ordenador. Es cierto que 
cuesta mucho introducir al 
cliente, pero le sientas frente a 
la máquina y ve lo que puede 
hacer y a qué precio, después 
no quiere otro." 

Pocos son los que conocen 
que QL es el nuevo ordenador 
Sinclair, pero poco más saben 
de él, como indica Pedro. 

"Vienen diciendo que quieren 
ver esa máquina de dos 'ca- 
charritos' pequeños. Hay que 
ser serios, esto es un ordena¬ 
dor que tiene un soporte de in¬ 
formación de 200 K al precio 
aproximado de 130.000 pe¬ 
setas, cuando ios equipos de 
la competencia de prestacio¬ 
nes similares, están por enci¬ 
ma de las 220.000 pesetas." 

Sin embargo, no sólo llama 
ia atención su precio, sino es- APLICACIONES 
pecialmente los programas de 
aplicación de Psion, lo que de- * 
nota un interés por parte de un 
público más profesional: "Va- ¡ 

¡oran mucho los cuatro pro¬ 
gramas. La mayoría de nues¬ 
tros clientes son pequeños 
empresarios y no están intere¬ 
sados en programar, les falta 
el tiempo o la afición. En estos 
casos adaptamos el Archive a 
sus necesidades, pero no te¬ 
nemos previsto hacer progra¬ 
mas a medida," 


Este dossier ha sido realizado por 
Santiago Gala, con la colaboración de 
Juan Arencibia y Miguel Gómez. 
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ESPECIFICAMENTE 
PARA QL 


ESTAMOS EN l'vFQRMAT 


PALACIO FERIAL - NIVEL 2 
STAND ■ 202 


ESPECIFICACIONES 

MODELO 
Cliti 1451/DOS 
14" Ül MONII OH 
Entolda RGB III 
Resolución (PIXELSI 
ROS (H) ■ 585 (l/i 
1)01 PITCH 0,43 mm 
Bendwiúth 18 Mil/ 
Específicamente diseñado 
pura el 01 que 
aprovecha su facilidad 
única de 85 columnas 
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(viene de la pág. 30} 


coma, a continuación ei valor de 
LOB que se acaba de calcular, otra 
coma, a continuación el valor de 
HOB y por último una coma. Al 
final de la sentencia DATA toda¬ 
vía tiene que haber un 999. 

8. Ejecute el -programa (RUN), 
tecleando la misma dirección de 
comienzo que la que se puso en el 
punto anterior y con la clave de¬ 
seada. Los bytes del código máqui¬ 
na estarán presentes en la memo¬ 
ria. 

9. Guarde (SAVE) estos 229 



bytes como CODE. y también la 
clave como CODE justo al final de 
la cinta con el programa, después 
del último bloque del programa. 
Observe que el programa cargador 
se cambió para que pudiera cargar 
los bytes de la rutina, la clave y la 
ejecute. 


Cuando todo se ejecute, el pro¬ 
grama cargador en BASIC, cargará 
todos los bloques de datos, in¬ 
cluyendo la rutina, la clave y antes 
que nada llama a la rutina de segu¬ 
ridad, que pasará el control al pro¬ 
grama principal una vez introduci¬ 
da la clave correcta. La rutina no 
vuelve al BASIC porque la hemos 
cambiado para que ejecute directa¬ 
mente el programa que se encuen¬ 
tra en la memoria. 

Finalmente, evite utilizar claves 
que le sean familiares al ser éstas 
demasiado obvias: distritos posta¬ 
les, nombre de animales, números 
de teléfonos, etc. 


1 PDKE 23009,15 
5 INPUT "Donde situó el RANTO 
F'? " ;rt 

10 CLEAR rt 

20 Din h (6): DIM 1 (6) 

30 INPUT "Dirección del codigo 
(longitud - 227 bytes): ";a 
40 INPUT "Valor del of-Fset: ”; 


50 LET v=I NT v: IF v<0 ÜR y>12 
8 THEN 60 TO 40 
60 LET otfset-v 

70 INPUT "Dirección del bu-ffer 


de entrada ";b 
SO INPUT "Direc 

e: " ; p 

90 LET hit)=FN 
FN I<b) 

100 LET h(2)= FN 
FN 1(p) 

110 LET h(3)=FN 
)=FN 1(a+6) 

120 LET h < 4)=FN 

4) -FN 1<a+42) 

130 LET h<5)=FN 

5) =FN 1(*+50) 

140 LET h(6)=FN 

6) =FN 1 <a+58) 

Í50 INPUT "C1avs 

" THEN GQ TO 15C 


cion de la clav 
h(b): LET 1(1)= 
hCp) : LET 1(2)= 
h(a+6): LET 1(3 
h <a+42)J LET 1 < 
h í a+50): LET 1 ( 
h ía+58): LET 1 ( 
■? "íp$: IF p*«" 


160 LET p*=p*+CHR* 13: FGR f=l 
TO LEN pí: POKE f+p-1. o-f i set + (CQ 
DE p* (f ) ) : NEX'T f 
190 CLS : PRINT AT 10,7;"Volcan 


do el codigo" 

200 DATA 175,50,129,92,24,52,22 
, 11, j-, 61,61,61,61,t»l,61,61,61,61 
210 DATA 61,61,61,61,61.22,10,3 
,69,78,84,69,82,32,80,65,83,83' 
220 DATA 87,79,82,68,5B,32,82,ó 
9,74,69,67,84,69,68,65,67,67,69 
230 DATA 80,84,69,68,58,129,92, 
60,50,129,92,254,4,32,1,199,58 
240 DATA 4,92,60,32,250.205,107 
,13,33,144,1,17,144,1,17.144,1 
250 DATA 205,181,3.62,2,205,1,7 
2,17,1(3>,h(3),1,36,0,205,60,32 
260 DATA 33,O,O,1,1(1),h(1>, 33, 
120,92,54,0,35,54,0,62.2,190,32 
270 DATA 1.199,58,4,92,60,40,24 
4,197,33,151,1,17,40,0,205,181 
280 DATA 3, 193,58,8,92, 198, pf-fs 
et , 2,3, 254, 13+of -f set ,40,8,58,4 
290 DATA 92,60,40,208,24,248,17 
,1<1),h(l),33,1(2),h(2),26,190 
300 DATA 32,9,62,13+of+se t ,190, 
40,17,19,35,24,243, 17,1(4) ,h (4) 
310 DATA 1,8,0,205,60,32,14,1,2 
4,11, 17,1 < 5) , h (5 > „ 1,8, O,205,60 
320 DATA 32,14, O.6, 8,33, B3, 89,1 
26,246,128,119,35,16,249,6,255 
330 DATA 118,16,253,12,13,194.1 
(6),h(6),205. 107,13,201,999 
340 RESTORE 200 

350 READ z: IF z<>999 THEN F'ÜK 
E a,z: LET a=a+t: 60 TO 350 
360 DEF FN b iu)“INT (u/256) 

370 DEF FN 1(u)=u-256*FN h(u) 
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La progresiva introducción de la in¬ 
formática en los centros escolares 
plantea toda una serie de nuevas cues¬ 
tiones, tanto a los educadores como a 
los profesionales de la computación. 
Nos proponemos abordar con esta se- 
ríe de artículos distintos aspectos que 
afectan al tema y sugerir, en la medida 
de nuestras posibilidades, algunas res¬ 
puestas a estas inquietudes, acercando 
a nuestros lectores experiencias y co¬ 
mentarios que les puedan ser de algu¬ 
na utilidad. 

En los dos números anteriores de 
esta revista comentamos a grandes ras¬ 
gos el Logo, lenguaje concebido espe¬ 
cialmente con fines didác¬ 
ticos, aunque, por su 44 po¬ 
tencia'" y su alcance, puede 
perfectamente exceder este 
marco, 

En este número tratare¬ 
mos sobre el “aula de in¬ 
formática "L Desearíamos 
sin embargo que el titulo 
de este artículo no induz¬ 
ca a pensar que la infor¬ 
mática deba ser tratada 
necesariamente en un es¬ 
pacio físico determinado, 
es decir, en un aula; como 
tampoco desearíamos que 
los lectores pensaran que 
el uso de los microorde¬ 
nadores en la escuela 
deba ser destinado exclu¬ 
sivamente a la enseñanza 
de la informática. 

El uso de ordenadores 
en la educación crea una 
problemática nueva y 
mucho más reciente en 
España que en otros paí¬ 
ses. Muy lejos estamos de 
pensar que sobre el parti¬ 
cular esté todo dicho, por 
lo que, sin el ánimo de 
creernos ios poseedores 
de la piedra filosofal, ex¬ 
pondremos algunos de los 
criterios que considera¬ 
mos importantes a la hora 
de instalar un aula infor¬ 
mática en el centro escolar. 


La elección de una 
configuración adecuada 

La elección de un determinado equi¬ 
pamiento responde a las necesidades 
que se deseen satisfacer. En la gestión 
administrativa de una empresa, según 
sea el tipo y el volumen del trabajo que 
requiera ser mecanizado, será la elec¬ 
ción del ordenador o de los ordenado¬ 
res más adecuados, así como los pro¬ 
gramas y los periféricos necesarios pa¬ 
ra llevar a cabo las tareas que se deter¬ 
minen. De igual manera, lo que se desee 
hacer con los ordenadores en la escuela 
determinará la elección de los mismos. 


Descartaremos en principio el uso 
de los ordenadores para la gestión ad¬ 
ministrativa de un centro escolar, ya 
que en este sentido no se diferenciaría 
mayormente de las necesidades de una 
empresa. Llevar una contabilidad, las 
fichas del alumnado, los pagos de cuo¬ 
tas, el envío de cartas, las compras de 
material, las nóminas, etc., son activi¬ 
dades más o menos comunes a cual¬ 
quier otra empresa. 

Donde sí existen verdaderamente di¬ 
ferencias importantes es en La utiliza¬ 
ción de los ordenadores para desarro¬ 
llar una actividad de enseñanza. En 
este sentido será el “proyecto pedagó¬ 
gico” lo que determinará 
cuál es el equipamiento 
más adecuado* 

¿Ordenadores 
o microordenadores? 

Los que nos acercamos a 
la informática por vez pri¬ 
mera y nos encontramos 
poderosamente influidos 
por el contexto en el que vi¬ 
vimos, tenemos la idea de 
que un ordenador es un ca¬ 
charro potente que guarda 
una enorme cantidad de in¬ 
formación, muy parecido a 
una maquina de escribir y 
que responde a nuestros re¬ 
querimientos con una velo¬ 
cidad casi instantánea. 
También sabemos que algo 
así es caro y que sólo lo tie¬ 
nen Ips bancos y empresas 
o alguna que otra persona 
adinerada. Por otra parte, 
tenemos la idea de que un 
microordenador es un ju¬ 
guete sofisticado en el que 
podemos librar todo tipo 
de batallas con seres extra¬ 
ños, al alcance de nuestros 
bolsillos y que quizá con él 
podamos empezar a intro¬ 
ducirnos en el mundo de la 
informática. 



Día a día crece la preocupación por la introducción de la informática 

en las escuelas, sin que por el momento exista una 

definición clara del ministerio. Ello redunda en la elección 

de equipos poco adecuados, en algunos casos, y en una deficiente utilización 

de los mismos, en la mayoría de los casos. Miguel Figini, experto en 

aplicaciones informáticas a la enseñanza, nos da su visión sobre el tema. 
































Aunque la mayor parte de esto sea 
cierto, este conocimiento superficial 
genera toda una serie de prejuicios que 
debemos desechar si queremos llevar a 
cabo nuestra intención de equiparnos 
para una labor educativa. 

No todos los centros escolares pue¬ 
den equiparse con ciertos ordenadores, 
que si bien les ofrecen excelentes pres¬ 
taciones, sus precios son también de¬ 
masiado elevados para el presupuesto 
con el que se cuenta. El problema radi¬ 
ca en la cantidad de unidades de que se 


podría disponer para atender a un cur¬ 
so completo (de unos 30 a 35 alum¬ 
nos). Desalienta la idea de que tengan 
que haber más de dos alumnos por or¬ 
denador, ya que sabemos que en estas 
condiciones el rendimiento de nuestro 
trabajo no seria el más adecuado. 

Sin embargo, si analizamos más a 
fondo las prestaciones que debemos 
exigirle a un ordenador para la ense¬ 
ñanza de ía informática en la escuela o 
para el uso de programas educativos, 
podremos concluir que una experien¬ 
cia así está al alcance de prácticamente 
cualquier escuela. 

El primer requisito a exigir es que el 
ordenador cuente con la posibilidad de 


soportar lenguajes de programación 
que puedan ser utilizados por todo el 
alumnado del centro, desde los más 
pequeños a los mayores. En resumen: 
si se trata de un centro de EGB, que no 
sólo trabaje con BASIC; ya que margi¬ 
naría a los alumnos de la primera eta¬ 
pa o los limitará a trabajar con unos 
pocos programas educativos. Un mi¬ 
croordenador que funcione también 
con Logo sería un requisito indispen¬ 
sable. Y aún más: que el Logo, por sus 
características (ver números de febrero 


y marzo de TODOSPECTRUM), este 
en la lengua materna del alumnado* 

En cuanto al BASIC es importante 
que éste sea lo más estándar posible y 
que su Editor sea simple y rápido. El 
Spectrum ofrece en este sentido carac¬ 
terísticas interesantes, ya que no per¬ 
mite al usuario introducir una línea en 
el programa si su sintaxis no es correc¬ 
ta. Este control que realiza el ordena¬ 
dor es muy útil con principiantes. ¿A 
cuántos de nosotros nos ocurre en 
otros ordenadores que al terminar de 
escribir un programa y al ejecutarlo 
comenzamos a leer en la pantalla los 
errores de sintaxis cometidos? Ya bas¬ 
tantes problemas tenemos en conse¬ 


guir que los programas hagan lo que 
deseamos, para tener que luchar tam¬ 
bién con la sintaxis. 

Si bien con estos dos lenguajes se 
puede cubrir un amplio espectro edu¬ 
cativo, sería de desear que el ordena¬ 
dor pudiera utilizar además otros len¬ 
guajes de programación; entre ellos el 
más interesante a nivel educativo es el 
PASCAL por su valor estructural. 
Para la Formación Profesional debería 
determinarse si el COBOL es impres¬ 
cindible. Desde nuestro punto de vista 
este es un lenguaje que se 
está abandoleando en la 
programación de gestión y 
tampoco pensamos que la 
labor sea la de formar pro¬ 
gramadores. 

La utilización de lengua¬ 
jes de programación debe 
tener un sentido formativo, 
debe permitir el desarrollo 
de capacidades intelectua¬ 
les más que el aprendizaje 
de la programación. 

En cuanto a la “poten¬ 
cia” del ordenador(que de 
una manera un poco sim¬ 
ple medimos en “Kas”), lo 
más importante es que ten¬ 
ga capacidad suficiente 
para cargar todos aquellos 
programas que queramos 
utilizar con fines educati¬ 
vos. 

Un ordenador que cuen¬ 
te en el mercado con un 
buen catálogo de progra¬ 
mas educativos y con una 
bibliografía extensa con 
programas comentados que 
pudiéramos consultar en 
clase, sería lo más adecua¬ 
do. También es importante 
que la mayor parte de estos 
programas estén en caste¬ 
llano, ya que su máximo 
aprovechamiento depende de ello. 

Si bien, el tiempo de carga de un 
programa para utilizar en la escuda así 
como la velocidad de acceso a la infor¬ 
mación, no es tan critico como en una 
empresa, el ordenador debería contar 
con la posibilidad de utilizar no sólo 
cassettes como fuentes de almacena¬ 
miento de información. Aunque el 
cassette sea un medio económico y su¬ 
ficiente para comenzar, debemos pen¬ 
sar que la experiencia tiene que desa¬ 
rrollarse y el ordenador debe soportar 
este crecimiento. En este sentido, la re¬ 
ciente aparición en el mercado de dis- 
kettes para el Spectrum pone a este mi¬ 
croordenador a la par con otros de si- 






Complete su colección de 


ÜMtospectnm 


A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


lodpépectnm 


Núm, 1 *250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampiiación Basicare/ 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
ce su Spectrum/Programas 


Núm. 2*250 pts. 

Gráficos profesional es/De aplaza¬ 
miento pixel a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa¬ 
ra microdrive/Rutina reset en código 
máguina/Anátisis del editor de textos 
Tasword/lntedaces para impresoras/ 
Programas. 


Núm, 3*250 pts. 

Novedades sonimag l B4/AmpfiandQel 
Basic/Prog ramas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en microdrive/ 
Programación de un interface de ¡m- 
p reso ra/ P rog ramas 


Núm. 4 *250 pts. 

De profesión: programador/Consola 
para el Spectrum/Comparación codl- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro¬ 
gramas 


Núm, 8*250 pts. 

Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: tortugas para todos/lnterrup- 
ciones del Z-80/Frogramas. 


Núm. 5*250 pts, 

Floppys para Spectrum/Diseño asis¬ 
tido por ordenador/64 Caracteres por 
línea/Juego de la vlda/Fascal/Así ha¬ 
cemos las portadas/Control de eva- 
luacíones/Programas. 


Córücia máquina 
para ampNar el BASIC 

VU 3 PT.-Jw.iiir 
ian 1 ri"i rAiliflrjHHTtfcí 

Í É.- C: :: t> ri+- < (¿ti os«n itiici mtnw 
Pr^gr/nitw E.3 ínwjTjtw f*TT flASÍC 


DISPONEMOS DE TAPAS ESPECIALES PARj 
^. SUS EJEMPLARES DE 

■■HMospcctrun 

11 SIN NECESIDAD DE ENCUADERNACION 


Para hacer su pedido, rellene este cupón HOY MISMO 
. y envíelo a: 

MlosDecinm Brav ° ^ urm °' 377 

■— Tel. 733 9$ 62 - 26020 MADRID 


Ruego me envíen los siguientes ejemplares atrasados de TODÜS- 
PEGTRUM . .. .ai precio de 250 pts. 

Por favor envíenme .. tapas para la encuadernación de mis 

ejem piares de TODQSPECTR UM, al precio de 600 pts. más gastos de envío. 
El importe lo abonaré 

□ POR CHEQUE O CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO □ AMERICAN EXPRESS □ VISA □ 1NTERBANK 

Número de mi tarjeta: | | | | ¡1 | j ¡"¡ Mi li iTnTTTTTÍTI 

Fecha de caducidad. Firma 


NOMBRE . 
DIRECCION 
CIUDAD ... 
PROVINCIA 


(cada tapa es para 6 ejemplares) 
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mi lares características. Por otra parte, 
el abaratamiento de los cartuchos para 
el Mícrodrive hace también de este úl¬ 
timo una instancia intermedia entre el 
cassette y el dtskeUe a costes razona¬ 
bles y con prestaciones que mejoran 
ampliamente las de un cassette . 

Desde el punto de vista del creci¬ 
miento de una experiencia informática 
en la escuela debemos exigir que nues¬ 
tra configuración pueda enlazarse en 
una conexión en red. La primera y más 
simple utilidad de una red 
es la posibilidad de carga 
simultánea de programas 
en todos los ordenadores. 

Requisito importante si 
queremos trabajar con pro¬ 
gramas educativos o con 
otro lenguaje diferente al 
que trae el ordenador de fá¬ 
brica. 

Otra mejora que introdu¬ 
ce la red es la posibilidad 
de un uso compartido de 
periféricos, como diskettes 
e impresora, con lo que po¬ 
dría reducirse el presupues¬ 
to enormemente. Un uso 
más sofisticado de la mis¬ 
ma posibilita la interactivi¬ 
dad entre estaciones y po¬ 
dría permitir que el profe¬ 
sor desde un equipo con¬ 
trolara el desarrollo de un 
determinado trabajo. 

Consideramos que la red 
no es un requisito indispen¬ 
sable en un aula informáti¬ 
ca, pero la posibilidad de 
tenerla puede permitirnos 
mejoras interesantes. 

En cuanto a las pantallas 
podemos exigir que nuestra 
aula esté equipada o bien 
con monitores de fósforo o 
de color o bien con televi¬ 
sores. Un equipo que nos 
permita elegir entre estas distintas op¬ 
ciones será lo suficientemente flexible 
como para que determinemos qué es lo 
más adecuado según nuestro presu¬ 
puesto. 

La calidad gráfica y el uso del color 
son elementos que ofrecen grandes po¬ 
sibilidades en la enseñanza* 

Aunque los monitores están pensa¬ 
dos específicamente para un uso infor¬ 
mático, no debemos descartar la posi¬ 
bilidad de utilizar televisores, ya que la 
escuela puede emplearlos con otros fi¬ 
nes tales como determinados trabajos 
en video, etcétera* 

Lo que sí es importante es que haya 
una buena imagen que no dañe la vista 


y que no desmerezca las cualidades 
que en este sentido tienen los microor¬ 
denadores. 

Hasta hace poco tiempo se discutía, 
no sin razón, sobre si un teclado profe¬ 
sional. es decir, similar al de una má¬ 
quina de escribir* era el que mejores 
prestaciones ofrecía en la escuela. 

No dudamos que la robustez del te¬ 
clado tiene su importancia ya que los 
alumnos someten a los equipos a ver¬ 
daderas "palizas"'. Pero un teclado de 


estas características también aumenta 
el coste de un equipo de una manera 
importante. Lo que debemos desechar 
es la idea de que un ordenador en la es¬ 
cuela debe ofrecer las prestaciones de 
una máquina de escribir. En este as¬ 
pecto debemos alejarnos de nuestros 
prejuicios ya que los alumnos jamás 
tendrán que introducir en el ordenador 
información en cantidad ni con la rapi¬ 
dez que exige el uso del mismo en una 
empresa. 

Comentaremos ahora un elemento 
que en general no se suele tener en 
cuenta y que, sin embargo, según nos 
relataban los responsables de! tema en 
Gran Bretaña en las Jornadas sobre In¬ 


formática y Educación, debería apre¬ 
ciarse más. (Jornadas celebradas en 
noviembre del año paado en Madrid y 
organizadas por el Ministerio de Edu- 
cación). 

La experiencia pedagógica puede 
verse francamente beneficiada si el 
alumnado puede tener en casa el mis¬ 
mo ordenador que también tiene en la 
escuda. La posibilidad de trabajar con 
programas que se están utilizando en el 
colegio, el intercambio de experiencias 
entre los alumnos y la posi¬ 
bilidad de que ellos generen 
por su mente programas 
que puedan utilizarse en la 
escuela, crea un marco so¬ 
cial de aprendizaje de di¬ 
mensiones interesantes. 
Este elemento nos decanta 
hacia equipos con un pre¬ 
cio accesible a la familia, 
siempre y cuando reúnan 
también el resto de las con¬ 
diciones. 

Finalmente, sólo nos 
queda por comentar la im¬ 
portancia de un manteni¬ 
miento barato y rápido. 
Recomendaríamos muy 
especialmente la compra 
de ordenadores que estén 
respaldados por una garan¬ 
tía y un servicio técnico fia¬ 
ble. Es cierto que un orde¬ 
nador puede comprarse 
sólo por su buen precio: 
pero cuando se trata de una 
implantación en la escuela 
para que todo el alumnado 
trabaje con ellos no pode¬ 
mos descuidar el servicio 
postventa* Aquí les reco¬ 
mendamos que se dirijan a 
profesionales del sector que 
estén especializados en el 
tema educativo ya que les 
podrán asesorar sobre mu¬ 
chas otras cuestiones que implican el 
uso de un aula informática: la disponi¬ 
bilidad de cierto software educativo, el 
entrenamiento en el uso de los equi¬ 
pos, la formación del profesorado, la 
confección de programas a medida 
para realizar algún proyecto determi¬ 
nado, etcétera. 

Podemos concluir, por todas estas 
razones, que un microordenador que 
cumpla estos requisitos básicos será 
suficiente para iniciar una experiencia 
pedagógica con ordenadores en el cen¬ 
tro. 

Miguel Figini 
Miembro del equipo de asesores de 

Los luí a 







CDÍT1PUTIDUE 


SI posees un Spectrum y —o un QL, 
$l dominas el código Máquina, 

SI te gusta la programación y 
puedes escribir un buen programa 


¡CONTACTA CON NOSOTROS! 

CDíTIPLI’naUE 

C/ Embajadores, 80. 28012 MADRID 
Tino. 227 09 80 - 227 91 99 


ELECTRONICA 


COMPRA — VENTA 
PROGRAMAS DE OCASION 
ZX 16-48K 

Entre otros: Space Raiders, Time Gate, Fro- 
ggi, Billar Americano, Harñsr Attak. Fígther 
Pilot, TuneF 3 D, Styk, Scuba Dive, Base 
Datos, Ajedrez Cirus y 600 títulos más r píde¬ 
nos el tuyo. 


«SANDOVAL 


* Ordenadores personales Hard y Soft 
• Cursos de Basic. 


DISTRIBUIDORES DE 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELU-AIM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 


Oficina RENOVACION EN MARCHA, S, A. 

C! Es pioncada 34. 2B003-MADRID 
Tino. (911 441 24 78 


Por sólo 900 pías, más gastos de envío, 
puedes conseguir tu programa preferido, ga¬ 
rantizados y comprobados. 


REMSHOP 1 

Galilea. 4. 28015 MADRID 
Tfnü- (01 ) 445 ÍS 06 


Pídenos gratis nuestro catálogo de pro 
gramas. 


REMSHOP 2 

C/ Dr. Gástelo, 14. 26Q0& MADRID 
Tino, {91) 274 9B 43 


Rellena este cupón: 

Deseo recibir contra reembolso; 
Nombre del programa . 


REMSHOP 3 

0/ Modesto Lafueme, 33. 23003 MADRID 
Tfno. (91) 233 33 19 


ME LO ENVIAN A 


ELECTRONICA SANDOVAL, S. A 
C/ SANDOVAL. 3, 4, 6 28G1Q-MADR1D 
Teléfonos. 445 75 58 - 445 76 00 - 445 18 70 
447 42 01 

Cf SANDOVAL, 4 y 6 
Centralita 445 Í 8 33 (8 lineas) 


REMSHOP BARCELONA 

C/ Pe la yo, 12. Entresuelo J 06681 BARCELONA 
Tfno. (93) 301 47 00 


Galle ..... .. 

Población ........ 

Teléfono (si tienes) 


REMSHOP LAS PALMAS 

C/ General Mas de Gamindez, 45. LAS PALMAS 
Tfno. (926) 23 02 90 


ENVIAR A: CLUB DEL JUEGO 
Apartado Correos 34.155 BARCELONA 


TODO EN MICROINFORMATICA 


SINCLAIR, AMSTRAD 
SPECTRAVIDEO, KATSON .. 

IMPRESORAS. MONITORES, PERIFERICOS 
PROGRAMAS EDUCATIVOS. GESTION, 
OCIO. 

Silva, 5-4 0 Tal. 242-24-71 
26013 MADRID 


CAMAFEO 


CASSETTES 

DE CALIDAD PROBADA 
PARA ORDENADORES 


Caitíl U nu 


FACTURACION SPECTRUM 


Un pro-grama que le perenne realizar 

Facturas 
Pedidos 
Dlertas 
Amararles 
Control de Stocks 
Listas de Precios 
20 Ficheros d i Fe remes? 

1000 ArticuloB 
40D Fichas 


Libre de gastos de envió contra reembolso correos 

CAMAFEO i*. 0ep03 

José Lázaro Galdiano, 1. 28036 Madrid. 


• APPLE • COMMODORE 

• SPECTRUM • AMSTRAD 

• SPECTRAVIDEO • DRAGON 

OFERTA MES DE ABRIL 


Un s0\O programa de 
fácil manejo con mierodfive 
con 20 licheras de clientes, 
proveedores, artículos, etc. 


En importes superiores a 25,000 ptas 
Vaie obsequio 10% descuento para su 
próxima compra 


ALSI, S. A. Antonio López, 154. 
Tel. 91/475 43 39 28026 MADRID 


MADRID 


Librería y Editorial 
Microinformátiea, le ofrece 



N ON\BRt 
oiRECet* 
i CIUDAD 

| cODlOO 
|l>ROVlN 


EDUCACION 


1 ibins. Revi,Mas, Suscripciones, Importación y Distribución 
UiiMuinquiiEL 20. Local 4 (Cocuy). 2*033 MADRID. Telef.: ?64 50 95 


* La mayor variedad de libros de microinformátiea, 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, cid tu rales*., 

• Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL; Lenguajes y 


Técnicas de Programación; Robot i ea, etc., en cualquier 
nivel desde d más básico al más avanzado, para sacar el 
máximo beneficio, diversión y provecho a su ordenador. 


Por favor, anoten las materias de su ¡rucres* 
Orden tutores personales. 

Si dispone* especifique marca . 

Aplicación a: 

□ NEGOCIOS, í I CASERA. 

□ JUEGOS* □ OTROS* 

Ocupación .... 

Comentarios .... 














































Situación: lluviosa tarde de un 
frío domingo de invierno. Cuatro 
amigos sin dinero se reúnen mi¬ 
rando sin ver el aburrido programa 
de nuestra mejor televisión. De re¬ 
pente, uno de ellos sugiere una 
partida de Monopoly; pero, ¡la¬ 
mentable!, no tenemos Monopoly. 

Si esta ha sido vuestra situación 
os sugiero una solución: tomar 
vuestro Spectrum e introducir el 
programa que acompaña a este co¬ 
mentario. Para utilizarlo, leer estas 
instrucciones. 

Como sabéis, el Monopoly es un 


juego de sociedad cuyo objetivo con¬ 
siste en intentar arruinara los adver¬ 
sarios mediante diversos negocios. 

Una vez hayáis tenido la inmen¬ 
sa paciencia de cargar todo el pro¬ 
grama, así como los caracteres grá¬ 
ficos y las matrices que le acompa¬ 
ñan. grabaréis el mismo con Save 
“Monopoly” Line l. Debéis tener 
en cuenta que nunca se debe ejecu¬ 
tar con “RUN”, pues borraréis las 
distintas matrices introducidas. 
Por ello, cuando queráis comenzar 
una partida debéis utilizar 
GOTO 5; al hacerlo obtendréis: 


“Número de jugadores”. 

Aquí debéis contestar con un 
número entre 2 y 4. 

Orden de juego 

Para establecer el orden de jue¬ 
go, cada jugador irá presionando la 
tecla “D” haciendo de esta manera 
funcionar los dados. El jugador 
que más puntuación saque jugará 
primero haciéndolo los demás de 
acuerdo ya con sus posiciones rela¬ 
tivas a este jugador. En caso de que 
se diera un empate por el primer 








4 LOAD *"m"; í ? ,l dadPS“CODE USR 
"<s",21*8 

5 LET Ei 10=0: LET cap 1=0: LET 
NJ=0: LET LIQ=0: LET H1=0: LET M 
AR=0: LET CAJA=0¡ DIM +<4>S DIM 
0(9,4): DIM H(9,6>: DIM p<2>: DI 
M r <3B)t DIM t<4): DIM 2(4): DIM 

5(4): DIM d<5>: DIM b4<38,?>: D 
IM N (2 > : RANDCIMIZE 

7 LET B4(í>="28210": LET B4<2 
) =" 25213" : LET B* £3} = " 22213" : LE 
T B*<4>="19210": LET B4(5)=“162i 
9": LET 64(6)= “16175": LET 64(7) 

= "16140": LET BS !B)="16115":, LET 
B®(9)="i6085": LET E®(10)="1308 
O": LET SiUl) =“13110": LET B4 (1 
2)="13148": LET B4(13)= "1317B“i 
LET E®<1A> ="13219": LET B*<15>=" 
10217" 

9 LET b® < i é>) = '*07210": LET b® í 
17) = "04217": LET b4(IB)="01217". 

LET b4(19)="00170": LET b*(2Q)= 
"00142": LET b*(21)="00110" 

11 LET B4(22)="00082": LET B4 ( 
23)="00052": LET Bíí24)= “O1019“: 

LET B®i 25 > ="04016": LET B*<26>= 
"07010": LET B® (27) ="10016"i LET 
B*(28)="13016“ 

13 LET B®(29>="16010": LET B* < 
30)= “19014": LET B®<31) ="22014": 
LET 64(32)="25010"r LET B*(33)= 
“29014" 

15 LET B*(34)="29059": LET B4( 
35)= “29080“s LET B®(36)=“29111": 

LET B4(37>="29140": LET 64(38)= 
“29171" 

16 FGR 1=1 TO 38: LET B*SI,6 T 
0 S)="0000": NEXT I 

18 LET D4=“ 

": DIM a4(2,8,2) 

20 LET aí(l,l)="RB"l LET a® (1, 
2) ="E:P": LET a* < 1,3) =" K.B" : LET a 
4(1,4)=" CT" : LET a® ( 1,5) ="KG"t L 
ET a® (1.6)=" MN" 

30 LET a* (2, 1)=” CC>": LET a* (2, 
2)="IF": LET at(I,3)*"CL": LET a 
4Í2,4)="®F": LET a4 (2,5) =“ Hl_" : L 
ET a4(2,6)=“ OP" 

33 F'DKE 23609.255: GO TO 300 
35 LET x=9: LET y=6: CLS : PRI 
NT AT 8, 11: "■"sAT 9. ils"W 


puesto, entra en funcionamiento 
una rutina de desempate. 

Movimiento 

Cada jugador irá presionando su 
número de acuerdo con el orden 
preestablecido, al hacerlo pone en 
movimiento los dados, cuando és¬ 
tos se paren la ficha correspon¬ 
diente comenzará a moverse al nú¬ 
mero indicado. 

Si la tirada fuera capicúa el juga¬ 
dor volverá a tirar. 


Comprar calles 

Una vez realizado el movimien¬ 
to, el jugador tendrá la opción de 
comprar la calle donde ha caído, 
siempre y cuando no haya sido 
previamente adquirida. 

Para realizar la operación se 
presiona la tecla “C”, inmediata¬ 
mente el ordenador realizará la 
transacción. 

Vender calles 

Un jugador podrá vender una o 
varias calles a otro jugador me¬ 


diante la tecla “V”. Al hacerlo, se 
preguntará qué jugador es el ven¬ 
dedor y cuál el comprador. Des¬ 
pués preguntará si lo que se vende 
es un grupo; si lo es se contestará 
con el número de la primera calle 
a vender y el dinero en que fijamos 
la venta. 

Grupos posibles: 

(3. 2) (6, 8, 9) (11, 12, 13) (15, 
17,18) (20. 22, 23) (25, 27, 28) (30, 
31,33) (36,38). 

Lo anterior no rige para las esta¬ 
ciones: 


(5,14, 24,34). 























Edificar 

Cuando se ha logrado comprar 
todas las calles que tengan el nú¬ 
mero del mismo color saldrá un 
mensaje de grupo completo. A 
partir de entonces, se podrá edifi¬ 
car. Para ello se pulsará “z”, con lo 
que aparecerá la pregunta: 

“Número calle 1 del grupo”. A 
lo que deberemos contestar evi¬ 
dentemente con el número de la 
primera calle del grupo a edificar. 






“Número de casas”. Debemos 
dar un número entre l y 4, depen¬ 
diendo ello del dinero que tenga¬ 
mos. 

Una vez colocadas las 4 casas se 
podrá edificar un hotel y sólo uno 
por calle del grupo. 

Caer en calle de un adversario 

Cuando un jugador caiga en una 
calle de algún adversario deberá 
pagar ei alquiler correspondiente 


37 F'RINT hT SjlBs'W ¡AT 9.13; " 

■" 

40 LET MUMl=3;; LET flum^numl: 
GQ SUB 7000 

45 LET * *=19: LET nufflld<5s GQ S 
UB 9000: LET y-y+1:: GQ SUB 9050 
: LET nurtt-numld: LET x=9; LET nu 
fn-nuítii: GQ SUB 9050: LET y~y+l 
50 LET *-9: LET num2“2: LET nu 
m“nuiTa2; GG SUB 9000 

55 LET *=19: LET numZd=2: LEI 
num-num2cf: GO SUB 9000s LET y = y + 
ii LET num=num2d: GQ SUB 9050s L 
ET * -9 a . LET m.im=num2: GÜ SUB 905 
0: LET y=y+l 

60 LET *=9 i LET num3=1: LET NU 
M-NUM3: GQ SUB 9000 

65 LET x= 19s LET nuin3tí=l = LET 
NUM=NUM3d: GQ SUB 9000s LET y~y+ 
lí LET num=nuíü3d s GG SUB 9050: L 
ET + *=9 ; L.ET nuifi=num3; GG SUB 9050 
68 FOR 1=1 TO 2 
70 FOR i-1 TD 3: PRINT AT 4+i, 
4; BRIGHT 1; " 11 í PRINT AT 4+a , 

23; BRIGHT 1; N '■: NEXT i 

93 LET CGR=23 
97 NEXT I 

100 PLOT 0,24: DRAW 220,0: PLOT 
0*144: DRAW 243,0 
110 PLOT 24,0: DRAW 0,168: PLOT 
219,0? DRAW 0,170 
120 PLOT 96,24: DRAW 0,96: DRAW 
48,0: DRAW 0,-965 PLOT 120,24: 
DRAW 0,96 
130 FOR 1=1 TO 3 
140 PLOT 24*1,0: DRAW 0,24: PLO 
T 24*1,145: DRAW 0,25 
150 NEXT I 
160 FOR 1=4 TO 5 

170 PLOT 0,1*24: DRAW 24,0: PLO 
T 219,1*24: DRAW 20,0 
175 NEXT I 
ISO FOR 1=1 TO 3 
190 PLOT 96,24+1*24; DRAW 48,0 
200 NEXT 1 
240 GO SUB 9240 

260 PRINT AT 16,21;"PAGO:";AT 1 
3.4; "CAJA: : IL ; AT 12* 4j "JUBA, M 
290 RETURN 

295 IF NJOO THEN GO TO 350 
310 INF'jJT "NUMERO DE JUGADORES: 

" ; NJ 


320 LET p(2)=-l: LET p<1)=1 
335 GO SUB 35 
340 LET JUG=1 

350 LET P Y=9: FOR i=l TO nj 
353 IF LIG=0 THEN LET DÍI>“130 
000 

355 PRINT AT py-.l, 21; 1! SALDO 11 ; I 
360 PRINT AT p y, 21; d < i ) 

370 LET py=py+2 
300 NEXT i 

390 PRINT AT 13,4;“CAJA:";AT 14 
f 4;CAJA 

393 IF LI0=1 THEN RETURN 
400 PRINT FLASH i; AT 4,5s P1 PULS 
E *0* PARA TIRAR": LET NJt-NJ: L 
ET FRLl-0 

410 IF XWKEY$="D" OR INKEYí="d" 
AND FRU<=NJ1 THEN GQ SUB 900t 
LET FR.U=FRU+1 

430 IF NJ1-1 THEN GO TQ 460 
440 IF NJ1<>1 AND FEU”NJ1 THEN 
LET FftU«Ol BEEP 1,7: GO SUB 930 
O: DIN Sí43 
450 GO TO 410 
460 PRINT AT 4,5:" 

ip 

470 FOR i -1 TQ nj: LET tüH; 
NEXT i 

475 LET ríl)=H LE T ia-1: LET 
ai<=4t LET ay=5: PRINT AT 6,5; 1;A 
T 20,20; "d" 

400 FOR i=l TD n J? PRINT INVER 
SE 1; AT ay, a*; i; LET *?-'=aH+2 
485 IF a* =6 THEN LET ***4: LET 

*Y=7 

490 NEXT i 
495 LET B10=1 

500 IF cap 1 = 1 AND fíhrK>G THEN 
LET fí hr)=Qt LET cap 1=0: PRINT 
AT 17,4;" n : GQ TO 502 

502 IF cap 1 = 1 THEN LET capl=2s 
LET jug=jug”l: PRINT AT 4 5 3.|"Pu 

Isb p para tirar": PRINT AT 17,4 

« II M 

503 IF díhrXO THEN GO TD 7000 

504 IF JUG=NJ+Í THEN LET JUG=1 

505 PRINT AT 12,10; FLASH i;JUG 
507 IF INKEY$="v ]J OR INKEY$= ei V H 
THEN GQ SUB 7B00 

510 IF cap 1=0 AND INKEY$=STR$ J 
UG THEN BEEP .1,-7: LET 1*=1NKE 
Yf: GQ SUB 9910 


512 IF cap 1=2 AMD C INKEYf ="p rl Q 
R I NKEY$= "p 1r } THEN PRINT AT 4,4 
;ü$: LET 1$=STR$ jug; LET capi=0 
: GQ SUB 9910 

515 IF INKEY£="d u QR INKEY$="D" 
THEN GO TG 7400 

520 IF INKEY4“"i " DF INKEYí = ”1 11 
THEN GO SUB 6500; LET LIO=H G 
Q SUB 35; GG SUB 295: LET LI0=0: 

GO SUB 0500; GO SUB 2000: 00 SU 
B S700 

530 IF INKEY$=" C " OR IMKEYS= l, c" 
THEN GQ SUB 6000 
540 IF I NKEY$= 11 a 11 OR INKEY*= " 1 " 
THEN GQ SUB 5000 
560 IF TNKEY$="H" OR INKEY*="h M 
THEN GG TÜ 7070 
570 IF IÑKEY*-" " THEN GQ SUB 
7500 

600 GO TO 500 
000 STOP 
940 LET iín-50 
950 FQR 1=1 TQ 2 
960 LET X=10#I“1 

990 LET C0N=4; LET FIN~I NT (RND 
* 6 > + i 


1000 FOR J = 1 TD -fin 
1010 LET y=6 

1020 LET num-CDN: GO SUB 9050: L 
ET NUMO=nuffl 

1025 LET Y“Y+!; GQ SUB 9000; LET 

Y«Y+1 

1Q30 LET NUM=NUM1: GQ SUB 9050 
1035 LET Y=Y+1: LET NUh=NUM2: GQ 
SUB 9000: LET Y=Y+1 
1037 LET NUM=NUM2: GO SUB 9050: 
LET Y=Y+i 

1050 LET num=num3: GO SUB 9000 
1060 LET y=6 

1070 LET num=NUMO: GO SUB 9000 
I OSO LET Y“Y+1; LET NUM=NUMO; GQ 
SUB 9050: LET Y=Y+1 
1090 LET nuín=NUm: GO SUB 9000 
1100 LET Y=Y+1: LET NUM=NUM1: GO 
SUB 9050: LET Y=Y+1 
1110 LET num=NUM2: GO SUB 9000 
1120 LET Y=Y+1: LET NUN"NUN2; GO 
SUB 9050 

1130 LET NUM3=NUM2; LET NUM2=NUM 
1: LET NUM1=NUMO 

1135 LET CON=CÜN+1: LET N íI)=NUM 














































VI 


ro^rOMOs 


al estado de la calle. Esta opera¬ 
ción es realizada automáticamente 
por el ordenador. 

Hipotecar 

Cuando un jugador necesite di¬ 
nero podrá conseguirlo, después de 
tirar hipotecando una calle de su 
pertenencia. Para hacer esto exis¬ 
ten dos modalidades: 

— Se desea hipotecar una calle: 


sólo hará falta dar el número de ésta. 

— Se desea hipotecar una casa 
de un grupo: se introducirá el nú¬ 
mero de la primera calle del grupo 
y a continuación el número de ca¬ 
sas a hipotecar. 

Recuérdese que el precio de la 
hipoteca es la mitad que el de com¬ 
pra. 

Ningún jugador podrá comprar 
una calle hipotecada, pero su due¬ 
ño ya no cobrará alquiler. 


Si se desea salir de esta opción se 
pulsará “0” cuando se pregunte 
“número de calle a hipotecar”. 

Existe la opción inversa que se 
obtiene mediante “D”. 


Información (I) 

Se puede obtener información 
sobre ios títulos de propiedad pre¬ 
sionando 1. 


■ 


i 


i 

[ 

; 


- 


! 137 IF C0N“7 THEN LEI CQN^i 
1140 NEXT J 
1150 NEXT I 
1152 LET cap 1=0 

1155 IF nín=n(2> AND Bi □< >0 -THE 
N LET cap 1 = 1 í FRINT AT 17*4; BR 
ISHT I; FLASH 1; "DOBLE": BEEF' 1* 
25; PAUSE'10: DEEP 1,50 
1160 LEI TI=N<2)+N<1): PRINT AT 
9,5;;" 11 ; AT 9,5;TI¡ LET SÍFRU+ 

1) =TI: BEEF .5,7 
1170 RETURN 

2000 IF 1 io=2 THEN 00 TG 7350 

2002 IF mar=i THEN GO TU 5100 

2003 LET arc*0: LET al=5: LET ci 
fu=4; GQ SUB 0100; LET al=5¡ LET 

cifü-23: GQ SUB 8100 
2005 IF p<11í2) THEN LET p <2) 
— 1 

2010 POR Í=1 TO nj 

2020 IF tíi)=p(l> THEN LET are* 

arc+1: LET 2 Í3rcJ=i 

2030 NEXT i 

2040 IF are<2 THEN LET píl)=-ls 
GQ TO 2047 

2043 IF are>=2 THEN LET cl-arc: 

LET cHli=4í LET cif =4: LET a!*5 
: 60 SUB 2120 
2047 LET *rc=0 
2050 FOR i — 1 TO nj 
2060 IP t(i> =p í23 THEN LET arc = 
arc+ls LET z(arc)=i 
2070 NEXT i 

2080 IF are<2 THEN LET p<2)=-l: 
RETURN 

2085 IF arc>”2 THEN LET citare: 

LET cifu=23: LET cif=23: LET al 
=5: GO SUB .2120 
2100 RETURN 
2120 FOR s=l TO el 
2130 PRINT INVERSE 1; AT al,GIF; 
z (s) 

2140 LET GIF—CIF+2 

2150 IF s*2 THEN LET ClF-ClFUi 

LET al-7 

2160 NEXT s 

2F65 LET <1 > 

2166 IF tíar^O THEN FRINT AT 6 
,cifu+l;"38": RETURN 

2167 PRINT AT 6, c i -f u+1 ; t < ar > 

2170 RETURN 

2250 IF cap1=1 THEN GO TO 2300 


2254 IF 4 í hr >-0 THEN GO TG 2300 

2255 PRINT AT 4,5; I, GUÍERE SALIR 
DE LA 11 ; AT 5,7;" CARCEL? (5/N> " 
2260 IF INKEYÍ= "s 11 OR lNKEY*a ,l S" 

THEN LET pt=5000s GO SUB 8300j 
Gü SUB 0310: LET d / hr)=d<hr>-pt 
¡ GO SUB 8320: GO SUB 3340s GO S 
UB 3360: LET f(hr)-0: GO TO 2300 
2270 IF INKEYt^'N 11 OR INKEY*= ,J n ,j 
THEN LET f f hr í =f (hr “ 1: FRINT 
AT 4,3;Oí;AT 5,7;" 

M : RETÜRN 
2280 60 TQ 2255 

2300 LET NF=HR 

2301 IF t í hr > =30 OR tíhr)=0 THEN 
BEEP 1,7: LET t íhr>=0s LET D (H 

R)=D(HR)+20000: PRINT AT 7+2*hr, 
21; FLASH l¡d<hr>: GO SUB 9950: 
PRINT AT 7+2*hr,2i;díhr) 

2302 LET ESD=T.;HR>: LET TI=TI-1: 
LET fin^esd+ti 

2303 LET Kl=aSd 

2304 IF -fin> =38 THEN BEEF 1,7: 
LET D(HR)=D<HF:>+20000: PRINT AT 
7+2 íhr ,21; FLASH ljdíhrN GQ SUB 

9950: PRINT AT 7+2*hr,21 i ó (hr) 

2305 FOR K-ESD TO fin: BEEP .05, 
-10 

2306 IF K>39 THEN LET K1“I 
2308 IF r(kl+l)~i THEN : GO TO S 
000 

2310 LET tíhr>=t(hr)+1: LET SEA= 
T(HR): LET ov=0: GO SUB 9500 
2315 IF t i hr>=38 THEN LET t < hr> 
—O: LET kl=-l 

2320 LET BEA=T<HR)-1: LET ov=I; 
60 SUB 9500 
2325 LET kl=kl+l 
2330 NEXT K 

2332 IF kl^O THEN LET r 

LET frs“0: GQ TO 2340 

2335 LET fr@=0: LET r(ki)=l 

2340 FQR s=i TO nj 

2350 IF t(s ; )=esd THEN LET fre=f 

re+1; LET s 

2360 NEXT s 

2365 IF ir0=0 AND esd=0 THEN LE 
T rí3B)*p: RETURN 

2370 IF irs-0 THEN LET r(esd)=0 
: RETURN 

2380 IF fre«l AND esdOG THEN L 
ET : LET nf-z(l)¡ LET oy* 


O: GO SUB 9500: RETURN 

2382 IF ire=l AND esd=0 THEN LE 

T bea=38: LET nf=z£l): LET ov=0: 

GO SUB 9500: RETURN 
2385 IF fre> 1 AND eisd-Q THEN LE 
T ^üÉ?a = 38: LET ov-0: LET í*- u 11 ; 
GO SUB 9505: RETURN 
2390 LET señ=05d: LE t f$ = ,J ": LE 

1” "SUB y'rjTFT -—-“ - 

2400 RETÜRN 

3000 LET HRP=HR: LET FRA=T(HR) 

3002 IF fra-í* THEN LET fra=3S 

3003 LET PRQ-VAL Bt(FRA,6) 

3005 LET LON1=K(FRA>; LET XA-4+Í 
20-L0N1J/2: PRINT AT 4,XA;Cí(FRA 
,1 TQ L0N1Í 

3006 IF QÍFRA,1> >0 AND QÍFRA,7>= 
O THEN LET X*=5TR* ÍQÍFRA,4))+" 

PTS"s LET XA=9+ í10—LEN X$j/ 2: P 
RINT AT 5, XA;X t ¡ FRINT AT 5,XA:Q 
Síl TP 10): GÜ TO 3010 

3007 IF □(FRA,1 ) >0 THEN LET 
STR4 (2*0 íFRA, 8) )+’ f PTS’ 1 : LET XA 
“9+(10—LEN X$)/2: PRINT AT 5,XA; 
X#: BÉEP 1,24: PAUSE 25: PRINT A 
T 5,9;Q$(Í TQ 10): GQ TQ 3010 

3008 IF Q í FRA,1)<-0 THEN PAUSE 
1Q0 

3015 LET PRO-VAL B4íFRA,6) 

3020 IF □ÍFRA.1)=-1 OR Q(FRA,1)= 
O THEN FRINT AT 4,3;Oí: PLDT 24 
,Oí DRAW 0,168: GQ TO 3500 
3030 IF BS(FRA,6)=STRf HR OR ( 
FRA,6> = M 0 M OR (FRA,9)—"H" THEN 

t PRINT AT 4,4¡Oí: RETURN 
3040 IF O(FRA,6)—O THEN LET CA= 
G í9,PRO): LET USU=Q(FRA,CA): GQ 
TG 3065 

3062 IF B^ÍFRA,7K> íh 0" THEN LET 
CASUAL BtCFRA,7) : LET USU=OCFRA 
,1+Cñ): GO TO 3066 

3064 IF Bt (FRA. 8)0" 0 11 THEN LET 
USU=Q í FRA,6)# GO TO 3066 

3065 IF bt (f ra,7)= 1, 0 1> AND bt(fra 
, 8) = "0" THEN LET USU=G(.FRA. 1) 
3070 PRINT AT 4,5; FLASH 1¡"CALL 
E DEL JUGADOR ";PRO 

3085 PRINT BRIGHT 1;AT 17,21:AB 

s usu 

3087 FRINT AT 7+2ÍHR,21; FLASH 1 
íD(HRP): GQ SUB 9950; PRINT AT 7 
+2*HR,2lp Jl 





















Cárcel 

La cárcel es la casilla número 
10, sin embargo cuando un juga¬ 
dor va a esta casilla se considera 
que hace una “visita a la cárcel” y 
no hay penalización. Cuando un 
jugador saca una taijeta de suerte 
que le mande a la cárcel o cae en la 
casilla de la flecha, será sanciona¬ 
do con una multa de 5.000 pesetas 



o 3 tumos sin tirar. Si en uno de es¬ 
tos 3 turnos al lanzar los dados ob¬ 
tuviera un doble, saldría libre au¬ 
tomáticamente. 


Bancarrota 

Un jugador se puede declarar en 
bancarrota tecleando “Space”. 


3090 LET D(HRP)=D CHRP)-USU 
3100 PRINT AT 7+2*HR,21; " 

AT 7+2*hr,21; FLASH Í;D¡HRP): G¿ 
SUB 9950: FRINT AT 7+2*HR.21;DÍ 
HRR> 

3120 LET D (F'RO) =D <PRD) +USU 
3130 PRINT AT 7+2*F'R0, 2 1; " 

"jAT 7+2*pro,21; FLASH 1;D(PR0) : 
GO SUB 9950: PRINT AT 7+2*PR0,2 
1;D(PRO! 

3140 PRINT FLASH 1; AT 4,5;"GF'ER 
ACION REALIZADA": GO SUB 9950: P 
RINT AT 4,3:0*5 PLOT 24,0: DRAW 
O, 165 

3150 PRINT AT 17,21:" " 

3200 RETURN 

3500 IF T(HR)=10 OR T(HR)=1 THEN 
RETURN 

3502 IF t (hr)=29 THEN GD TD 363 
5 

3505 ÍF tthr)=37 THEN LET ptl=- 
i0000: LET eaja—cajá+10000: GO S 
UB 8400: GO TG 3350 
3510 IF t £hr )=4 THEN LET ptl=-2 
0000: LET Cája^caja+20000t GO SU 
B 8400: GO TG 8330 
3515 1 F T(HR)=19 THEN LET FT1*C 
AJA: LET CfiJA=0: GO SUB B400; GO 
TG 8350 

3520 LET pre=INT <27¥RND)+1: LET 
longÍ=vtpre,1>¡ LET long2=vípre 

3525 LET (pre, 1, 1 TD XongU 

: LET m$=u* (pre,2, 1 TO iong2) 
3530 LET a 1 =3+ í 24— LEN n$W2t LET 
?í 2-3+ (24-LEN mí)/2: LET y 1-4: L 
ÉT y2=5 

3550 FRINT AT yUxlgn* 

3560 PRINT AT y2,ü2;m* 

3580 GO TO Í3580+5Ípre> 

3585 LET pt1=20000: LET tím-100: 
GO TD 8350 

3590 LET tim=100s LET pt1=2500: 
GD TO 8350 

3595 LET tim“lOOí LET pt1-10000: 
GO TO 8350 

3600 LET hrl=hrs FOR w=l TO nj 

3601 IF wOhrl THEN LET PT-1000 
: LET tim-50í LET d<W>=d<w) -pt : 
LET hr=w: GO SUB 8300: GO SüB 83 
10: GD SüB 8320? GO SUB 8340 

3602 NEXT w 

3603 LET hr=hr1: LET ptl=nj*Í000 


! GO TO 8350 

3605 LET ti-39-tChr)s GO SUB 225 
O: GO SUB 8360: GD TO 2000 
3610 LET pt1—5000: LET fcim=lOO= 
GO TO 8350 

3615 LET pt1=10000: LET tim=100: 
60 TO 8350 

3620 LET tim-lOO: LET pt1=2000: 
GO TO 8350 

3625 LET ti=40-tíhr>: GO SUB 225 
Os GO SüB 8360: GO TD 2000 
3630 LET ptl=—SOCO: LET tim-100: 
GO TO 8350 

3635 IF tíhrKIO THEN LET ti = 10 
-t(hrh GO SUB 2300: LET f(hr>=3 
: 60 SUB 8360: GO TO 2000 

3636 IF t (hr) >10 THEN LET ti =48 
-t Chr ) : GD SUB 2300: LET H= thr 1=3 
: LET ptl=-20000: GO TO 8350 
3640 LET ptl — 10000: LET tim-100 
t GÜ TO 8350 

3645 LET pt1-10000: LEI tim-lOO: 
GO TO 8350 

3650 LET ptl—5000: LET tim=100: 
GO TO 0350 

3655 LET colc»Os LET colh=Gs LET 
cas-40'00: LET hot = l 1000 

3656 FOR x=l TO 38 

3659 IF VAL bí(i,6>-hr THEN LET 
coXcscolc+VAL LET cpIH 

=colh+VAL b$(i,B> 

365B NEXT i 

3659 LET pti=-tca^Scolc+hoticolh 
LET tím^LQOi GO TD 8350 

3660 LET ptl—2000: LET tim=lGO: 
GO TO 9350 

3665 LET p11-i0000: LET t l m= 100: 

GO TO 8350 
3670 GÜ TO 3605 

3675 LET pt1=5000: LET tim-100: 
GD Tü S-350 

3680 IF t í hr > < 23 THEN LET ti =28 
“t íhr >: GD SUB 2250: GO SUB 8360 
:: GO SUB 3000: GO TO 2000 

3681 IF t <hr)>20 THEN LET ti=66 
-tíh r): GO BUB 2250: GD SüB 0360 
i GD SUB 3000; GO TO 2000 

3685 LET ptl=-15000: LET tim-lOO 
: GD TO 8350 

3690 LET cas*2500: LET hot=365é: 
GO TD 3656 

3695 IF t(hrK27 THEN LET ti-27 
—t Chr): GO SUB 2250: GO SUB S360 


: GD SUB 3000: GO Tp 2000 

3696 IF t(hr)>28 THEN LET ti=65 
-tChrJs GD SUB 2250: GO SUB B3Ó0 
: GÜ SUB 3000: GO TO 2000 

3700 IF tíhrXll THEN LET ti = il 
—t (hr >; GP SUB 2250: GO SUB B360 
: GO SÜB 3000: GO TO 2000 

3701 IF t(hr)>ll THEN LET ti=49 
"t (hr >: GO SUB 2250: GD SUB 0360 
: 60 SUB 3000: GO TD 2000 

3705 IF lihrXB THEN LET ti=S-t 
íhr>: GO SUB 2250; &□ SUB 8360: 
GG SUB 3000: GP TO 2000 

3706 IF t (hr)>8 THEN LET ti=46’ 
t (hr): GG SUB 2250: GO SÜB 8360: 

GO SUB 3000: GO TO 2000 
3710 LET pt1=15000: LET tim=100í 
GD TO 3350 
3715 60 TO 3635 
5000 LET H1R=HR: LET H1=0 
5010 INF'UT "NUMERO CALLE 1 DEL G 
RUPO "jNF 

5020 IF B*CNP,75="4" THEN LET H 
1=1: LET NC=1: GO TO 5070 
5050 INPUT "NUMERO DE CASAS sl : NC 
5070 LET i 1=0: LET can=3: LET IM 
I=VAL B*ÍNP,S) 

5072 IF INI=0 THEN PRINT AT 4 ? 4 
; "OPERACION NO PERMITIDA 11 ! PAUSE 

100; PRINT AT 4„4;□$: RETURN 

5073 IF HÍINI,3>=1 THEN PRINT A 
T 4, t; ‘'OPERACION NO PERMITIDA": 
PAUSE 100: PRINT AT 4,3;0*: RETU 
RN 

5075 IF G (INI, HR) < >3 AND ÍINIOl 
AND INI<>3) THEN PRINT AT 4 # 4j 
11 OPERADION NO PERMITIDA 11 : PAUSE 
100: PRINT AT 4,4;Oí: RETURN 
5080 IF inI=3 DR ini=l THEN LET 
can=2 

5085 IF G(INI P HR>< >2 AND (INI = 1 
OR INI-3) THEN PRINT AT 4,4:"QP 
ERAD ION NP PERMITIDA 11 : PAUSE 100 
i PRINT AT 4*4*0*: RETURN 

5086 FDR 1=1 TG CAN 

5087 IP Q < NP+11 1 1>< =0 THEN LET 
11=11+1: LET 1=1-1: 60 Tü 5080 

5088 IF B$(NF+I1,9)="H" THEN PR 
TNT AT 4„ 4; L1 0peracion no permi tí 
da 11 : BEEF 1,23: PAUSE 25: PRINT 
AT 4,4;o*: RETURN 

5089 NEXT i 

5090 LET PTi—NC*GHNF,7> #can 














































OFERTA DE SUSCRIPCION 


REVISTA EXCLUSIVA PARA USUARIOS 


Te ofrece la posibilidad de suscribirte con unas condiciones 


muy ventajosas para ti: 

Recibir puntualmente, en tu domicilio la publicación 
TODOSPECTRUM que durante 12 meses te proporcionará 
lectura, programas, ayuda, entretenimiento, etc. 

Consigue un práctico regalo: 



Una obra fundamental en la biblioteca 
de los aficionados al Spectrum: 



La opción de ser protagonista. Tú puedes tener una 
participación directa con tus comentarios, programas , 
sugerencias, etc. 

Obtener premios importantes con tus programas, y temas 
de interés. 


EN DEFINITIVA, TODO SON VENTAJAS 


No dejes pasar esta oportunidad, suscríbete 

a “TO DOSPECTRUM”, cumplimentando hoy mismo el cupón 
de respuesta adjunto. 


IA|CR£Cb m BRAVO MURILLO. 377 - 5.° A 

RnRr4Í|f%Vll UBI TELEFONO: 733 74 13/47/63/97 28020 MADRID 

























Matrices 



Al hacer esto aparece un mensa¬ 
je de seguridad, si éste se contesta 
afirmativamente se procede a reti¬ 
rar el saldo de este jugador pasan¬ 
do a ocupar su número el jugador 
que tuviera el número superior a 
él. Por ejemplo, si están jugando 4 
jugadores y se retira el 2 ocurriría 
que el 1 seguiría siendo el 1, pero 
el pasará a ser el 2 y el 4 pasará a 
ser el 3. 



Las matrices listadas (ver datos 
anexos) han de cargarse indepen¬ 
dientemente del listado. Estas ma¬ 
trices serán luego grabadas perma¬ 
neciendo de este modo en cinta, 
pese a que no estén en el listado. 
Observe que en el listado se carga 
esta información directamente de 
microdrive (línea 4). 


5095 IF d íhr)+pt1<0 THEN PRINT 

AT 4,8; BRIGHT 1;"NU HAY FONDOS" 

: BEEP 1,17¡ PAUSE 50: PRINT AT 

4,8;Dí: RETURN 

5097 LEI MAR-1s GO TO 8350 

5100 LET 11=0: LET mar=0: FOR i= 

1 TO can 

SU O IF q <np+i 1, 1 )< p=0 THEN LET 
il = il+I¡ LET i —i — í: GQ TO 5130 
5U5 IF hl= 1 THEN LET b'Unp + iU 
7)="Q"i LET b* (np+i l„S)= 1l l lr : LET 
i 1“i 1+1; GO TO 5130 
5120 LET eras-VAL bí (np + i i ,7Knc 
s LET b* ínp+i 1,7) =5TR* eras 
5125 LET i i“il + l 
5130 NEXT i 

5200 IF NF< =5 DR (np>=14 AND n p< 
-18> 08 i NP>-24 AND NF<33) THEN 
LET GX=VAL TO 2>-l; LET 

OY=VAL E*(NF,3 TO 4) 

5210 IF íNP>10 AND NP<24) OR ÍNP 
>-33 AND NF<=38) THEN LET GX=VA 
L &S£ÑP,1 TO 2): LET OY=VAL B*(N 
P,3 TO 4>+l 

5220 IF np>5 AND np<10 THEN LET 
OX-VAL BUCNP,! TO 2)-ls LET 0Y= 
VAL B*<NF S 3 TÓ 4> +1 
5230 IF np>10 AND np<14 THEN LE 
T ÜX=VAL B* (NF 1 , 1 TQ 21+1: LET OY 
=VAL B*CNF,3 TO 4) +1 

5245 IF (np>10 AND np<14> OR NP< 
"5 OR (np>=14 AND np<-18) OR (NP 
>33 AND NF03B) THEN LET VAR--1 

5246 IF (NP>18 AND NP<=33) OR (n 
p >5 AND npCIÜ) THEN LET VAR=1 

5247 IF H1“O THEN LET CAR-VAL B 
* ÍNP,75 

5240 IF H1-l THEN LET CAR=4 

5250 LET H£INI,Í>=OXi LET HUNÍ, 
2 )=0Yi LET H íINi,3)—H1; LET HÍIN 
1,6)-NP: LET ÜX1=0X: LET 0Y1=PY 

5251 LET H(INIn4) =CÁR: LET H(INI 
,5)=VAR: 60 TO 5253 

5252 LET OXÍ=H ( INI s i>: LET 0Y1=H 
UNI,2); LET Hl=H<INI ? 3>s LET CA 
R=H(1NL4): LET. VAR-H U N1,5) : LE 
T NP^HÍINI,6> 

5253 FOR J = 1 TO GUNI,HIR) 

5255 LET rrom-0 

5260 FOR 1=1 TO CAR 
5270 IF np<=5 OR (np>—14 AND np< 
=18) OR ínp>=24 AND np<=33) THEN 
PLOT OX 1 T0„ 168HHy 1 *8—var#cr oítú 


DRAW 0,4: DRAW 4 f 0s DRAW 0,-4= 
DRAW -4,0: IF Hl-1 THEN PRINT A 
T Qy 1,0x1; "t" 

5280 IF (np>5 AND np<14> OR ínp> 
1S AND np<24> OR (np>33 AND np< = 
38) THEN PLGT OX 1 *8, 25+varItirofíi 
, 169-GyUtB: DRAW 0,4: DRAW 4, Os 
DRAW O t —4a DRAW ^4,Oí IF Hl-1 TH 
en FFmvrr at oyi ,ím i 
5285 LET crom-crprn+S 
5290 NEXT I 

5300 IF NP< =5 OR (np>=14 AND np ( :' 
=ÍS> OR ÍNP>*24 AND NP<=33) THEN 
LET OX 1—0X1 +3-#VAR: IF qínp+_,,l 
K-0 THEN LET os< 1 =ok 1 +3#var 
5310 IF ínp>5 AND np<14) OR (NF : 
10 AND NP<24) OR <NF>33 AND NP< = 
3B> THEN LET 0Yl=0Yl-VAR*3: IF 
q( np+ j , 1> <=0 THEN LET oyl=oyl“V 
ar*3 

5320 NEXT j 

3500 BEEP 1,14: RETURN 
6000 LET FRA=tíhr) 

6010 IF FRA=0 THEN LET FRA™3S 

6060 PRINT AT 4,7; FLASH 1;"ÜRDE 

N DE COMPRA": BEEP 1,7 

6070 IF Q(FRA, 1> =—1 OR QÍFRA,1) = 

O THEN PRINT FLASH i ; AT 4,4¡“O 

PERACIQN NO PERMITIDA": BEEP 1,6 

s PRINT AT 4,4;0-#: RETURN 

6075 IF B*(FRA,6)<> ,, 0" THEN PRI 

NT FLASH 1; AT 4,5;“CALLE DEL JU 

GADOR "¡¡B*(FRA,6): BEEP 1,6; PRI 

NT AT 4,4; RETURN 

6080 GO SUB 8200 

6083 IF D(HR>-FRICO THEN PRINT 

AT 4,4; OS;AT 4,8;'NO HAY FONDOS” 

: BEEP 1,7; F'RINT AT 4, 4*0*3 RET 

URN 

6090 LET B*ÍFRA,6)=STR* HR 
6093 LET pt=pri: LET tim=100: GQ 
BUB 8300 

6100 60 SUB 8310 

6110 LET D C HR) -D (HR1-PRI 

6120 GO SUB 8320 

6140 PRINT FLASH 1;AT 4,5;"OPER 
ACION REALIZADA 11 : BEEP 1,5: PRIN 
T AT 4,4;ü* 

6150 LET INI=VAL B*ÍFRA,5) 

6160 LET SUMI, HR> =G (INI, HR) +1 
6165 IF 6<IN1,HR)=2 AND INlOl A 
ND in1=3 THEN PRINT BRI6HT 1;A 
T 4,7;"GRUPO COMPLETO-: BEEP 1,7 


; BEEP 1,7: PRINT AT 4,4 ? d* 

6170 IF G íIN1,HR)*3 AND IN1<>9 A 
ND INI03 AND INlOl THEN PRINT 
BRIGHT 1;AT 4,7|”GRUP0 COMPLET 
D"; BEEP 1,7: BEEP 1,7* PRINT AT 
4,4;O* 

6180 IF G(INI,HR)=4 AND INI=9 TH 
EN PRINT BRIGHT 1;AT 4,7;"GRUP 
O COMPLETO”: BEEP 1,7: BEEP L7: 
PRINT AT 4,4;0* 

6190 PRINT OVER l ;AT 17,21;PRI 
6200 RETURN 
6550 CLS : LET JUGA-1 
6560 PRINT AT 8,3; J, 1 - VER TODOS 
LOS TITULOS" 

6570 PRINT AT 11,3;"2 - VER UN 
TITULO 11 

6580 PRINT AT í4,3;"3 - VER TI TU 
LOS DE UN JUGADOR" 

6585 PRINT AT 17.3; "4 - SALIR 1 ' 
6590 INPUT "OPCION: ”;OP 
6595 IF DP=4 THEN RETURN 
6600 LET FRIN=1: LET FINI-38 
6610 IF PP-2 THEN INPUT "CUAL? 

11 ; CALL: LET PRIN-CALL: LET FIN1 = 
CALL 

6620 IF 0P=3 THEN INPUT "CUAL? 

,J ; JUGA 

6690 LET caos-1 

6700 FOR I=PRIN TO FINI 

6705 IF 0P=3 AND VAL B*(I,6)<>JU 

GA THEN GO TO 6800 

6710 CLB : LET LOND=KU) 

6715 LET IN=VAL Bit 1,5): LET INV 
=0: LET BR-n 

6720 LET XA—4+ í20-L0ND)/2 
6725 IF IN=9 THEN LET INV-1 
6730 IF IN=B THEN LET IN=3; LET 
BR=I 

6735 IF IN=7 THEN LET IN=5: LET 
BR=1 

6740 PRINT INK IN; BRIGHT BR; I 
NVERSE INV;AT 3,XA-3;C*<I,1 TO L 
□ND);" ;I: PRINT = PRINT 

6742 IF Q <I, 1)<=0 THEN GO TQ 67 
87 

6743 IF IN=9 THEN GO BUB 6850: 
GO TO 6795 

6745 PRINT "Precio de compra: 

TAB 20;2*q(i,g>: PRINT D*U) 

6747 PRINT "Por pasar: ";TAB 20; 
q (i , 1> 

6750 FOR J=2 TO 6 















































6760 FRINT D$ÍJ);TAB 20?CáOslqíi 

6770 NÉXT J 
6772 PRINT U% C7) 

6774 PRINT D*ÍB>;TAR 20;Q(I S 7): 
PRINT D*<9);GCI,7> 
ó77ó PRINT DtílOií PRINT D*£ ii) ; 

tab 20iq<i,s> 

6785 PRINT : PRINT : PRINT "PROP 
IEDAD DEL JUGARDDR "; 8$(1,6) 

6786 IF op=3 THEN PRINT #1;"Pul 
se una telca lr : PAUSE Os GQ TO 63 
00 

6787 IF op“1 THEN PRINT tt i *"Pul 
se una tecla para continuar R pa 
ra retroceder S para salir 1 ': PAU 
SE 0 

6790 IF INKEYísa"S 11 DR INKEY*= J, s ,t 
THEN GO TO 6500 

6795 IF INKEY$= JI R" OR INKEY*= n r" 
AND i>l THEN LET i=i-2: GO TQ 
6800 

6797 IF INKEY$="R" OR INKEY4-V 11 
AND i = i THEN LET 1 =37 
6BOO NEXT I 

6310 IF 0F'=2 THEN FRINT U 1 5 "Pul 
se una tecla' 1 : PAUSE O 
6S40 GO TO 6500 

6850 PRINT "Precio de compra";TA 
É 20*20000? PRINT "ALQUILER" 

6860 PRINT "Con 1 estacion "; TAB 
20;2500: PRINT "Con 2 estaciones 

":TAB 20;5000 

6870 PRINT "Con 3 estaciones"; TA 
b 2:0; 10000 ■ prin r '"con 4 estado 
nes";TAB 20;20000: PRINT "HIPOTE 
CA:“¡TAR 20;10000 
6880 RETURN 
6900 STOP 

7060 PRINT AT 4,7;"Sin fondos, d 
ebe hipotecar."; LET litu^l 
7070 INF'UT "Que calle desea hipo 
tecar ";nuc 

70-73 IF nuc=0 THEN GG TG 500 

7074 IF nuc<“0 THEN LET jab=hr: 
60 TO 7520 

7075 IF VAL b* (nuc, ó) Ohr THEN 
PRINT AT 4,4;"esa calle no te pe 
rt enees 11 : BEEP l p 25í PAUSÉ 25; P 
RINT AT 4,4;oí: GO TO 7070 

7077 IF b*(nuc,9)-“H“ THEN PRIN 
T AT 4,6^“Calle ya hipotecada": 
BEEP Í,L2s PRINT AT 4,4;ot: GO T 
0 7070 

7080 IF b$(nuc s 7) < >“Q " OR b»(nuc 
J BK> ,1 0 H THEN GO TO 7200 
7100 IF q ínuc, 6) =0 THEN LET ptl 
= 10000: LET b* ínuc , 9} ="H 11 : PRINT 
AT VAL b$(nuc,2 TG 4>,VAL b$ínu 
c ü 1 TO 2)*“H"í GO TO B350 
7110 LET ptl=q(nuc, B> = LET b*ínu 
c, 9) = |P H" s PRINT AT VAL b*ínuc,3 
TO 4),VAL b*(nuc„i TO 2>;"H M : GO 
SUB 9239: GO TO 8350 
7200 IF b*<nuc # 8>0 ,, 0" THEN LET 
max=5: GO TO 7230 
7210 LET ma?í=VAL bí<nuc,7> 

7230 PRINT AT 4,5;"UaKi no numero 
de casas";AT 5,7;"* hipotecar"; 
max 

7240 INF'UT "Cuantas casas hipóte 
cas: 11 ; ven 

7245 LET ini-VAL btCnuc fl 55: LET 


gru = 3 

7250 IF b*(nuc,5)=“!“ OR bí(nuc, 

5) = "3 lf THEN LET gru=2 

7255 LET i a 1=0 

7260 FOR i-1 TO gru 

7270 IF qtnuc+ial f 13<=0 THEN LE 

T i al = í ai+2: GO TO 7300 

72B0 IF max<5 THEN LET b$ínuc+i 

al,7)=STR$ Ífflax“vení : LET híini, 

4í=uiñ¡í“ven 

7290 IF max=5 THEN LET b$(nuc+i 
aí,7)—5TR$ Í5“ven): LET (nuc+i 
a 1,G)-"0"; LET h{ini,3)«Q: LET h 
íi ni 3 4)-5-ven 
7295 LET ial-ial+1 
7300 NEXT i 

7310 LET ptl=q < nuc,7)#ven/2*gru 
7320 LET 1 io“2: GO TO 8350 
7350 LET lio=ls GO SÜB 35; GO SU 
B 295: LET liQ=0: GO SUB 8500: G 
□ SUB 2000: GG SUB 3700 
7360 GO TG 7070 

7400 INPUT " CALLE A DESHIPOTECA 
R ";cal 

7403 IF CAL=Ü THEN RETURN 

7405 IF q(cal, i )=0 OR b$ícal,9)< 
> ,, H' P THEN PRINT AT 5,4* "OFÉRACI 
ON NO -FERFriTIDA"¡ BEEP 1,15: FAU 
BE 25: GO TO 7400 

7406 LET IN=VAL B*(CÁL,® 

7407 IF VAL blínuc,6)<>hr THEN 
PRINT AT 4,4;"ESA CALLE NO ES TU 
YA": BEEP 1,25: PAUSE 25: PRINT 
AT 4,4 ;q*: GO TO 7400 

7408 LET IN-VAL LET BR- 

O: LET INV—O: LET XP=VAL B*<1,1 
TO 2): LET YP^VAL B*(I„3 TO 4) 

7409 IF IN=9 THEN LET INV“1 

7410 IF 1N=7 THEN LET IN=5: LET 
BR-1 

7415 IF q(nuc,6)“O THEN LET ptl 
=-10000: LET b*(CAL,9>««O": PRIN 
T INK IN; BRIGHT BR; INVERSE IN 
V;AT VAL b*(CAL,2 TD 4),VAL b*(C 
AL,1 TO 25¡CAL: GG SUB 9239; GO 
TO 8350 

7420 LET PT1=—Q (CAL,0): LET B$ ÍC 
AL,9)="O"; PRINT INK IN: BRIGHT 
BR; INVERSE INV;AT VAL B*<CAL t 3 
TO 4),VAL BSfCAL,! TO 2);CAL: G 
D SUB 9289: GO TO 8350 
7500 PRINT AT 4 s 10;"SEGURO íS/N) 

14 

7510 IF INKEY*= Jt 5" OR INKEY*="s" 
THEN PRINT AT 4,7;"Espere por 
favor": GO TÜ 7520 

7512 IF INKEY$="N" OR INKEY$="N" 
THEN PRINT AT 4, Ato*-. RETURN 

7513 GO TQ 7510 

7515 IF jug'íij THEN LET jab=l 

7517 LET j.ab = jug + 1 

7520 FOR 1*1 TO 3B 

7530 IF B*(I,6)OSTR* JAB THEN 

60 TO 7560 

7540 LET 1NI=VAL B4(I,5)í LÉT B* 
(1,6 TO 9 )="000" 

7550 FOR W=1 TO 4: LET H(INI,W)= 
O 

7560 LET G<INI,JAB)=0 

7570 NEXT I 

7571 GO SUB 7750 

7573 FOR I=JAB TO NJ-1: LEI TU) 
*T(I+1>: LET D(1)-D(I+1)¡ NEXT I 


7575 IF JAB^NJ THEN LET JUG=1: 

60 TO 7700 

7580 FOR 1^1 TO 38 

7590 LET B6=VAL Bt(I,6) 

7600 IF B6>=JAB THÉN LET B*U,6 
)«STR4 (B6-1) 

7610 NEXT I 
7620 FOR 1=1 TO 9 
7630 FOR J-JAB TO NJ-1 
7640 LET G(I,J)r6a,J + l) 

7650 NEXT J 
7700 LET NJ=NJ-1 

7710 LET LJ0—1; ^0 SUB 35: 60 SU 

& 295: LET LlO=Ol GO SUB 8500; G 

O SUB 2000; GG SUB 8700 

7720 RETURN 

7750 LET csrn-O 

7755 FOR i=l TO nj 

7760 IF i-hr THEN GO TO 7770 

7765 IF t(i)=t <hr 5 THEN LET con 

-CQHl+l 

7770 NEXT í 

7775 IF cornal AND ptl)=tíhr) THE 
N LET p í1)=0 

7780 IF com= 1 AND p (2) =*t íhr ) THE 
N LET p(2> =0 
77S5 RETURN 

7B00 INPUT "De jugador ";jugv 
7810 INPUT "a jugador M ;jugc 
7820 INPUT "Es un grupo? ";j$ 
7830 IF j*O fr n" AND jf<> p, N" THEN 
GO TD 7900 

7840 INPUT “Numero do calle (l ;nu 
me 

7850 INPUT “Valor de la transare 
Ion ";tran 

7860 LET ini=VAL b$ínumc,5> 

7870 LET g(ini,jugv)=g(ini,jugví 

-1 

7880 LET g(i ni,jugeí=g<i ni,juge3 
+ 1 

7890 IF (ini=i OR i ni=3) AND gfi 
ni f jugc)=2 THÉN PRINT BRIGHT 1 
;AT 4*7;"Grupo completo": BEEP 1 
, 18 

7893 IF ini<>l AND mi<>3 AND gt 
i nin juge)=3 THEN PRINT BRIGHT 
1 *AT 4,7;“Grupo completo": BEEP 
1,18 

7895 LET b*ínume 5 6>=STR* juge: L. 
El usu~-tran: LET PRO=JUGC: LET 
HRP-"JUGV: GO SUB 3080: RETURN 
7900 INPUT "Valor de la tránsate 
ion “;tran 

7905 LET vr=VAL j$: LET ini=VAL 
b$(vr,5)s LET g(i ni■jugv)—O 
7910 IF i ni = 1 ÓR i ni-3 THEN LET 
gíini,juge)=2: LET on=2 
7920 IF i ni OI OR i ni 03 THEN L 
ET g (ini ,juge>=3: LET on-3 
7925 LET i a 1=0 
7930 FOR i-1 TO on 
7935 IF q ívr, 1)=0 THEN LET ial = 
iai+i: LET i=í™l: 60 TO 7930 
7940 LET b#(vr f 6)=STPS jab 
7950 NEXT i 

7960 LET usu=-tran: LET pro=jugc 
: LET hrp-jugv: GO SUB 3000i RET 
URN 

8000 LET fw=l: LET klr=kl 

SO10 FOR 1=2 TO nj 

8011 LET esla=klr+i 

8013 IF esla>=39 THEN LET esla = 









GO TO 80 


esla-3B 

8014 1F ríeslaí-Ü THEN 
23 

SO 15 IF r(05la)=l THEN LET fw=f 
w+1 

0O2O>NEXT i 

8023 IF k+fw>=fin + 1 THEN 60 TO 

9600 

8025 LET kkf^esla 

8050 IF t <hr)+*F w<37 THEN LET ov 

-1: LET 5ea=tíhr ): GO SUS 9500: 

LET t(hrí-tChr>+fw+i: LET ov-0: 

LET sea-tíhr): GO SUB 9500: LET 

k^k+fw: LET kl^kl+fw+l¡ GO TO 23 

30 

0060 IF t(hrí+fw>=38 THEN LET o 
v=ls LET sea=t(hr): GO SUB 9500: 

LEI t(hr>=kkfí LET dv=0: LET se 
a=t(hr>: GO SUB 9500: LET kl=kkf 
: LET k‘=k+-fw: Gü TO 2330 
0070 IF t <hr) +fw=37 THEN LET se 
í hr): LET ov-ls GO SUB 9500: 
LET t (hr 5 =30: LET ov=0: LET sea* 
38: GO SUB 9500; LET kl^Os LET t 
(h r )=0: LET k=k+fw: GO TO 2330 
8100 FÜR i*=0 TO 2: PRINT BRIGHT 
IjAT al +i , ci fu; " " : NEXT i: R 

ETURN 

0200 IF Q ÍFRA p 6> =0 THEN LET FRI 
-2*0 ÍFRA ,5): RETURN 
0210 LET FRI-Q ÍFRA, B) *2 
8220 RETURN 

8300 PRINT BRIGHT 1; AI 17,21: AB 
S Pt; RETURN 

0310 F'RINT AT 7+2*HR 9 21; FLASH 1 

;D(HR>: GD SUB 9950: PRINT AT 7+ 

2*HR, 21; " 11 : RETURN 

8320 PRINT AT 7+2*HR,21; FLASH 1 

; D í HR) : GO SUB 9950 

8330 PRINT AT 7+2*HR,21sD(HR): R 

ETURN 

8340 PRINT OVER 1: AT 17,21 ? ABB 
Pt: RETURN 

8350 LET pt=pt1: GO SUB 8300: GO 
SUB 8310: LET d(hr>=d(hr)+pt: G 
O SUB 3320: GO SUB 8360: GO SUB 
8340: GQ TO 1199 

8360 PRINT AT yl^so** 11 11 ¡ PRINT 
AT y2,3;o$+ 1h 11 i PLOT 24,0: DRAW 
O, 168 

S370 PRINT FLASH 1;AT 4,3;"ÜFER 
ACION REALIZADA": PAUSE 50: PRIN 
T AT 4,4*0$: RETURN 
8400 PRINT FLASH 1;AT 14,4;CAJA 
: LET TIM=50: GO SUB 9950: PRINT 
AT 14,4;CAJA: RETURN 
8507 FÜR T“1 TO NJ 
8510 LET SEA-T(T) 

8520 LET NF=T; GO SUB 9500 
8530 NEXT T 

8540 IF FU)>0 THEN LET Ov=0: L 
ET SEA=P (1 > : LET F*- 11 11 ; GÜ BUB 
9505 

8550 IF F(2> >0 THEN LET ov-0: L 
ET 5EA=P (2 > : LÉT F*“" " i 60 SUB 

9505 

B560 RETURN 

8605 LET ti“39—t í hr ) 

8700 FÜR V=1 Tü NJ 

8702 LET HlR-V 

8705 FDP W=1 TD 9 

8710 IF H (W,4)”0 THEN GO TO 873 

O 



8720 LET INl-W: GO SUB 5252 
8730 NEXT W 
8735 NEXT V 
8740 RETURN 

9000 PRINT AT y,x:a$<1,num )s RET 

URN 

9050 PRINT AT Y, X ? A* í 2, NUID ; RET 
URN 

9240 FÜR 1=1 TO 3B 
9245 LET IN-VAL B*(I,5>: LET BR= 
O: LET 1NV-0: LET XF=VAL B*<I * 1 
TD 2): LET YP=vftL B*(I,3 TÜ 41 
9250 IF IN-9 THEN LET INV=1 
9265 IF IN=7 THEN LET IN^5; LET 
BR=1 

9267 IF b$ti „9>="H" THEN PRINT 
INK IN; INVERSE INV; BRIGHT BR; 
AT YP, XP; "H" t GD TD 9280 
9270 PRINT INK IN; INVERSE INV; 

BRIGHT BR;AT YP, XR;I 
9280 NEXT I 

9282 PRINT AT VAL b*<7,3 TD 4),V 
AL b$í7,-L-TD ; fr 7 » ; AT i,16; w 

11 ; AT 21,19; 11 1 11 : AT 14,29:" I " ; AT 
8,13; ír " ; AT 21,7; '*? n : AT 1 1,0; " 

? 11 ; AT I,?; 11 ? 11 1 AT 1,25; "? ";AT 
0,29 j u ?" 

9283 PRINT AT i 7, Oí"» 11 

9264 PLOT"96,103: &RAW 24,Oí PLO 
T 96,111; -DRAW 24,0 
9286 FÜR 1=96 Tü 120 STEP 4: PLO 
T I,96: DRAW 0,15: NEXT I 
9283 PLOT 132,17(5: DRAW -5,-12 = 
DRAW — 1,7; DRAW 1,-7: DRAW 7,7 
9289 PLOT 0,0: DRAW 249,0: DRAW 
0,170: DRAW -249,0: DRAW 0,-170 
929B RETURN 

9300 LET Wl«l: LET NJ2-NJ1: LET 
CGRl-ls LET MIN=S(1)t LET MAX=3( 

1 J 

9310 FÜR W=1 Tü NJ2 

9320 IF SCW)>NAX THEN LET MAX=S 

<W>: LET W1=W 

9330 IF SíWKMIN THEN LET MlN=S 
ÍW3 

9340 NEXT W 

9350 FOR W=W1+1 TO NJ2 
9360 LET 5(W—1>=5 fW) 

9370 NEXT W 

9380 IF NJ2=2 THEN LET s(2)=fraK 
: LET síD^fnin: Gü TÜ 9410 
9390 LET S(NJ2)=MAX: LET MAX-MIN 
: LET NJ2-NJ2-1 
9400 GÜ TÜ 9310 


9410 FÜR W=NJ1-1 Tü 1 STEP -1 
9420 IF S(NJi)OS(W) THEN LET N 
J 1 “COR 1; PRINT AT 4,4; 11 

H :AT 4,6;"DESEMPATE 
ENTRE '*; N J 1 : RETURN 
9430 LET COR 1=C0R1+1 
9440 NEXT W 

9450 LET njl=cor1: PRINT AT 4,4; 

" ";AT 4,6 

; "DESEMPATE ENTRE 11 ; NJ 1: RETURN 

9500 LET f$=STR$ nf 

9505 IF SEA>=39 THEN LET S£ñ=3? 

-38 

9507 LET pos=SEñ 

9510 IF SEA=-1 THEN LET PÜS-37: 

LET QV=1: LET SEA=37 
9520 IF SEA=0 THEN LET 0V=1: LE 
T PÜS-38: LET SEA=38 
9530 IF SEA<=18 THEN PRINT OVE 
R d v;AT VAL b$(pQS,3 Tü 4>-l,VAL 
b*(f»as,l TO 2) : INVERSE l;f* 
9540 IF SEA>18 AND sea<24 THEN 
PRINT OVER av;AT VAL h$(po^,3 T 
Ü 4),VAL b$ (pos,i TO 2)+2; INVER 
SE l;f$ 

9550 IF SEA>23 AND sea<34 THEN 
PRINT OVER O^íAT VAL b*ípas,3 T 
0 4> +1,VAL b$(Pos,l TU 2)t INVER 
SE 1;f$ 

9560 IF SEA>33 THEN PRINT OVER 
ov;AT VAL (pos,3 Tü 4),VAL b$ 
ípos,l TO 2)-1; INVERSE 1sf$ 

9570 RETURN 

9600 IF fin*1=38 THEN LET kl=3S 
í LET fin=-15 LEI t(hr>=0: LET ^ 
ea=k: LET ov=l; GÜ SUB 9500: LET 
LET ov-0; LET G 

ü SUS 9505: Gü TO 9620 
9602 IF fin>=3B THEN LET fin=fi 
n-30 

9605 LET kl-kl+l; LET t(hr)=fin> 
1 

9610 LET sea = k1 — 1s LET ov=l: £Q 
SUB 9500: LET sea=fin+l: LET ov= 
Oí LET ”s GO SUB 9505 

9620,IF p(l>=-l THEN LET p (i )=f 
i rr+ 1 ü Gü Tü 2335 

9630 IF p(2>=-l THEN LET p(2>^f 
i n+1 

9670 GO TÜ 2335 

9750 LET e1-2: LET zí 1 )=hr 

9755 FOR s—i TO nj 

9760 IF hr=s THEN GO TO 9780 

9770 IF t(hr> =t ís5 THEN LET z (c 

l)=s: LET cl=cl+l 

9780 NEXT ^ 

9790 LET cl-cl-l: RETURN 

9800 IF pU)*tíhr? THEN LET pü 

í =0 

9810 IF p(2> =t (hr 1 THEN LET p(2 
) =0 

9B20 RETURN 

9900 PRINT AT 7+2*88,21;" 11 ; A 

T 7+2*HR,21;D(HR); RETURN 
9910 IF L*=STR* JÜG THEN PRINT 
AT 4,4;G$; LEI JUG=JUG+1: LET hr 
sVAL ií; GO SUB 900; Gü SUB 2250 
; GO SUB 2000: GÜ SUB 3000: GÜ T 
O 520 

9920 PRINT AT 4,7;"PULSE DE NUEV 
er¡ BEEP 1,1: GÜ TO' 505 
9950 FOR 1=1 Tü tim: NEXT I: RET 
URN 













































CQmOjs 


NOMBRES DE CALLES 


ex i ;> 

CX 2 > 

ex: 3 > 

í'í ¡ : 4 > 

£*< L i :< 
CX 6 ■' 
CX 7 > 
C$< 8 > 
CX 9 > 
CX 18 
CX 11 
c$< 12 

CX 13 
CP 14 
CP i 5 
CP 16 
CP 1? 
CX 18 
CP 19 
i 29 
CP 2,1 
CP- 22 
CX 23 
CX 24 
CX25 
CX 26 
CX 27 
CX 28 
CX 29 
ex 38 
CX 31 
CX 32 
CP 33 
CP 34 
CP 35 
CX; 36 
Ci< 37 
CP 38 


II 


AL IDA 
=EÜNDA DE VALENCIA 
=FLRZfl DE LRVAPIES 
=IMPUESTOS ; 20030 PTS 
-E3TR. DE GGYR 
=REINA VICTORIA 
-SUERTE 

=CUATRO CANINOS 
=BRAVO NURILLÜ 
>C ARGEL 

^GLORIETA DE BILBAO 
>=ALBERTO AGUILERA 
>=FUENCARRAL 
>ESTA. DE DELICIAS 
>AVENIDA DE FELIPE 
>=CAJA DE COMUNIDAD 
>=VELA2QLiE2 
>=CERRA NO 
>PRRGUE GRATUITO 
j-RVDAp DE AMERICA 
;«=SUERTE 
)«MARIA MOLINA 
>=CEA BERMUDEZ 
!'=ESTAp DEL MEDIODIA 
>-PLAZA DE OPERA 
>CAJA DE COMUNIDAD 
>BRILEH 

APLAZA DE CIBELES 
>=A LA CARCEL 
>=AL CALA 

>«PUERTA DEL SOL 
>—CAJA DE COMUNIDAD 
>GRAN VIA 

>ESTA. DEL MEDIODIA 
)-SUERTE 
^CASTELLANA 
>IMPUESTOS : 10000 PTS 
FRASEO DEL PRADO 


PROGRAMA DE INTRODUCCION 
396Ü;EOR 1 = 1 TÜ 38 
9970 JNPUT "CALLE : ”>CX15 
9975 PRINT XX Mi 11 >" ; CX I > 
9980 NEKT I 


Q< 1 f 1 > 
Qí 1.2 > 
Qí 1,3 >= 
Qí 114 >= 
Qí 1,5)* 
Qí 1,6)? 
Qí í . 7 >= 
Qi 1, S >s 
O-:' 8,1 >: 
Qi 2,2 > 
0 < 2.3 
Oí 2, 4 >= 
Qi 2 .■ 5 )' 
Oí 2.’ 6 > 
Qí 2 , 7 > 
Oí 2, 8 > 
Oí 3 j l > 
Oí 3,2 > 
Qi 3,3 > 
Oí 3►4 > 
Oí 3, 5 
GK3,S> 
Oí 3, 7 > 
O- 3, & >= 


% 

0 

0 

0 

0 

0 

0 

: 300 

N000 

■900® 

= 16000 
=25000 
=5000 
=3000 
= 400 
= 2000 
= 6000 
=18000 
-32600 
=45000 
5000 

3000 


DATOSANEXOS 


Oí 4 ■ 1 >0 


Qí 12,8 >«7080 

Qi 13,1 >«1200 

Qí13 *2 >=6000 

Oí 4 .2 >~0 


Qi 13,3 >=18000 

Oí 4.3 >=0 


Qí13,4 >=50000 

GK 4 1 4 


Qi13,5>=70000 

Qi 4.. 5 >8 


Qí13,6 >=90000 

0 < 4, 6 ; >=Q 


Qi 13, 7 >=10000 

Oí 4,7 ’=M 


Di 13.0 >=0000 

i;v; 4 , y >s 0 


Qí 14 -í >=2500 

Oí 5,1 >2500 


Qí 14'2 >=5000 

ni 5 .. 2 >5000 


Qi 14,3 >=10080 

¡7K 5 ■ 3 >= 10000 


Qí14.4>=20000 

Qí 5,4 >-20080 


Qí H , 5 >«10000 

Üí 5 -5 > 10000 


Q< 14, 6 >=0 

Oí 5 ■ 6 )=0 


Qí 14 ,7 >=0 

Oí 5.7 > : -=0 


Qí 14 8 >=0 

0 '. 5 * 8 >-0 


Qí 15,1 >=1400 

QÍ 6,1 >=60O 


Qí15.2 >=7800 

Oí 6,2>=3800 


Q f 15,3 >*20008 

Oí 6 ■ 3 >-9000 


Qí15 > 4 >=55000 

Qi 6 ,i 4 j¡=27000 


Qí15 i 5 >=75008 

Qí 6 .*5 >=40000 


Qí15,6>=10000 

Qí 6,6 >=55080 


Qí 1.5.7 >=9000 

0< 6 , 7 >=5000 


Qí 15,8>=9000 

GK 6,8 >5000 


Qí 16, 1 >=-l 

Qí 7,1 )=-l 


Qí 16,2 >=0 

Q( 7, 2 >0 


Qí 16 , 3 >=0 

Qí 7 .i 3 >=0 


Qí 16.4 v -=0 

Qí 7, 4 >=0 


Qi 16 5 >=© 

Qí 7 * 5 :>=0 


Q< 16,6 -«0 

Oí 7 .■ 6 >=0 


Qrl 6-?;=0 

Qí 7 > 7 >=0 


Oí 1 f. - S >=w 

Oí 7 .■ 8 >8 


Qi 17, i >=í 490 

Qí 8 ,1 >=608 


Qi 17 2 >=7000 

Q< S i 2 >=3000 


Qí17.3>=2000 

Qí 3,3 >=9000 


Qi17.4 >=5500 

0- 8-4 >=27090 


Qí 17.5 >=75000 

Oí 8 , 5 >=40008 


Oí 17►6 >=95000 

Qí 8 .. 6 «55000 


QÍ 17,7 '-1 0000 

Qí 8 i 7 >=5000 


O- 17.8 >=9000 

Qí 8 ■ 8 >*5000 


Qí18,1>*1600 

GK 9 ,1 >=800 


Qi18,2 >«8000 

Qí 9 - 2 >=4000 


Qí 18, 3 >=22006 

Q< 9 > 3 >= 100@@ 


Qí18,4 >«68008 

Qí 9 , 4 >«30000 


Qi 18,5 >=80008 

GK 9 ■ 5 >=45000 


Qi 18, 6 >=100800 

Q<9-6>=69000 


Qi18,7>=18000 

Qí 9.- 7 >=5000 


Qí 18 ,8 >=10000 

Qí 9 * 8 >=€000 


Qi 19-1 >«0 

Qí10,1>=0 


Qi 19,2 >=0 

Qí 10-2 >0 


Qi 19,3 >=0 

Qí 10, 3 >0 


ÍK 19,4 >=0 

Q< 10 , 4 >0 


Qí 19, 5 >=0 

Qí 10 j 5>=0 


Qí 19, 6 >=0 

Oí 18,6 >0 


Qí 19,7 >=0 

Qí 10,-7>=0 


Q< 19,8 >=0 

Qí 10.-3 >=0 


9Á 20 ,1 >=1800 

Qí11,1>=1000 


Qí 2 U . 2 >=9000 

Qí 11,2 >=5000 


Qi 29, 3 >=25000 

Qíi1,3>=15008 


Qí 20 .- 4 >=70000 

Qí 11 ,4 >=45000 


Qí 20, 5 >=87500 

Qí11.5>«62500 


Qi20.6>=105008 

ftv. 11,6 >=75000 


Qi 20 ■ ? >«15008 

Qí11, 7 >a 10000 


Qi 20 .8 >=11000 

Qí11,8>=7000 


Qí 21,1 >=-l 

Qí 12* 1 >=1000 


Qí 21,2 >=0 

Qí12 ,2 >=5009 


Qí 21,3 >=0 

Q<12 ,3 >=15000 


Di 2 1.4 >=0 

Qí12,4>=45000 


Qi 21,5 >=0 

Qí 12.-5 '>«62500 


Qí ¿1,6 >=@ 

Oí 12* 6 >=75000 


Qí 21,7 >=0 

Oí 12 , 7 >«10000 


Qí 21 ,8 >=8 


Oí 22, 

1^=1000 

Oí 22 , 

2 >=9000 

Qí 22, 

3 >=25000 

Q< 22, 

4 >=70000 

Qí 22, 

5 >=37500 

Oí 22, 

6 >=105000 

Qi 22, 

7 >= 15000 

Qi 22 , 

8>=11000 

Qí 23, 

1>=2000 

Qi 23, 

2 >=100U0 

Qí 23, 

3>=30000 

Qi 23, 

4 >=75000 

Qi ¿3.' 

5 >=9¿5A0 

Qi 23, 

6>=110000 

Qi 23, 

7 >=15000 

Qi 23 > 

8>«12000 

Qí 24. 

1>=2500 

Qí ?4 ■ 

2 .-=5000 

Qí 24, 

3>=10000 

Qí 24, 

4 >=20000 

Qí 24, 

5>=10000 

Qí 24, 

6 >=Q 

Qí 24 - 

7 >=Ü 

Qí 24 - 

8 >=0 

Qí ¿5, 

í >=2209 

Qí 25, 

2 >=1 1000 

Qi ?5, 

3 >=33000 

Qí 25, 

4 >=80000 

Qí 25, 

5 >=97508 

Qí 25 i 

6>=115000 

Oí 25, 

7>=15008 

QÍ25, 

B >=13800 

Qi 26 ■ 

l >="1 

Qi 26 - 

? >0 

Qí 26 í 

3 >=M 

Qi ¿6, 

4 >=0 

Qí 26 - 

5 >=0 

Qí 26, 

6 >=0 

Qi 26 - 

7 >=0 

Qi 26, 

8 >=0 

Qí 27, 

1>=2200 

Qi 27, 

2>=11008 

Qí 27 , 

3 >=33080 

Qí 27, 

4 >«80000 

Qi 27 ■ 

5>=97508 

Qi 27, 

6>=115008 

Qí 27, 

7>*15000 

Q< 27 . 

8>=13000 

Qí 28 , 

1 >=2200 

Qí 28 ■ 

2 >=12000 

Qí 2B, 

. 3 >—36800 

Qi 28, 

4 >=85000 

Qí 28, 

.5>=102500 

Qí 28 ■ 

‘6 >=120000 

Qí28i 

, 7 j=1 5000 

Qí 28 ■ 

0 >14080 

Qí 29 ■ 

1 >=0 

Qi 29, 

2 >=0 

Qí 23 i 

3 >=6 

Qi 29. 

4 >=0 

Qi 29, 

5 >=0 

Qi 29, 

■ 6>=0 

Qi 29 

■ 7 >=0 

Qí 29 ■ 

■ 8>0 

Qi 30. 

■ 1>=2608 

Di 30 

.¿>=13080 


1 3 v-.i¡90üy 


.4 >=90000 

Qi SO. 

. 5 ■-1 

Qí 30 

*6>127508 

Qi -J0. 

* 7 >28000 

Qí- 30 

,8>=15000 

Qí 31, 

p1>=2608 

Oí 31. 

, 2 >=130@0 

i- 1 ' 31. 

,3 >=390©0 



























iX 31 > 4 >90808 
Qí 31,5 >=110006 
Oí 31 S >=137600 
Q< 31,7 >=20000 
CK 31,8 >=15000 
Oí 32,1 >=-*1 
G<32,2>8 
M- 32 ■ 3 >8 

IX 32 , 4 >=0 
CK 32.. 5 '>=0 

X 32, 6 >0 
Qí 32, 7 >=0 
Oí 32, 3 >0 

CK 33 ■ 1 >=23000 
IX 33, 2 >15886 
CK 33, 3 )=4500@ 
CK 33,4>=100000 
CK 33,5>=120000 
003*6 >148008 
CK 33,7 >=20000 
9< 33 i 8 >=16000 
Oí 34 ■ 1 >=2500 
CK 34 . 2 >=5000 
Qí 34, 3 >=10000 
GK 34 - 4 >=20000 
CK 34 ■ 5 >=10000 
004,6 >8 
0< :'=:4 ■ 7 >=0 
Oí 34 .3 >=0 
805,1 >-1 
0< 35 , 2 >8 
Oí 35,3 >=0 
Oí 35.4 >0 
IX 35,5 >=0 
Oí 35,6 >=0 
Qí 35 , 7 >0 
005,8 >8 
CK36,1>=3500 
Oí 3b , 2 >2 7500 
Oí 36 ■ 3 '=50000 
Q(36,4 >110000 
O'; 36 - 5 >=30000 
Oí 36,6>=150080 
Oí 36,7 >=20000 
GK 36, 8 >=17500 
Qí 37 ,1 >=y 
Oí 37 .2 )=0 
Oí 37,3 >8 
Oí 37 - 4 >0 
Oí 37 ■ 5 >=0 
O- 37,6 >=0 
Oí 37,7 >=0 
Qí 37 ,8 >0 

rx 38, 1 >=5000 

0< 38,2 >=28600 
Oí 38,3 >=60000 
Oí 38-4 >=140000 
íK 38, 5 >=170000 

rx 30., 6 i=200 00 éi 
O í 38,7 >=20000 
Oí 38,8 >=20000 


PROGRAMA DF INTRODUCCION 


9960:>FQR I = 1T0 33 
9965 FOR J=1 TCi 3 
9979 LNPUT "PRECIO DE IR 
CALLE 3 'TGKI.J) 

9375 LPRINT “Qí ’M, ", " ; J; " >" ; 

Oí I,,J> 

3977 HEín J 
9930 NEXT I 

------- 


TARJETAS DE SUERTE¡ 


Uíí 1 ■ 1 )=Error de la. barca a su. 
U®' 1 ■ >=f -i v or , F' e r i ha 2 000 0 p 1 5 . 

* 1 í< 2, 1 >Re c 1 b 1 su i n t e r 0 s 5 . obr e 
U ií 2, 2 > e i Presta m □ 2 500 p t.ja. 

Uíí 3,1 >=Reci ba su renta ¿nual- 
USí 3■2 >=10000 Pts. 

Uív 4 t , j =En su aniversario reriba 
U$í 4,2 >de cada iuSs.dor 1060 p ts 
I l$í 5 . 1 I=í :ri [ r-qi.i.e&e í íi 1 ^ r Í-; i 1 f 3 
U$ i 5,2)=nu m er o u. no „ 
i.líí 6 ■ 1 '"*La '-venta de su. stock 

I tí í 6,2 > 1 e P rodu.ce 500 0 p te 

U$< 4,2 >-de cada iu9ador 1 000 pt.s 
Uíí5■ 1 >Co l oquese en la casi 1 'la 
U3K 5,2 >num«ro uno. 

USr6,1 >l..i venta de su stc"“b 
1 J* 1 . b.■ 2 >= Ie produ.ce 500 O Pts 
ll$í 7d >Premio de belleza 
USí 7 ■ 2 >=rec 1 ba 10080 P ts 

II $í 3, l >C o Ti fcr i h y c i cines le 
Ü Sí 3,2 >=de vu e 1 veri 2000 P ts 

1 1$í 9 ■ 1 >=S i tu es e e n 1 a c as illa 
USí9 ,2 )=rumero dos. 

1 íí ■. 10 , 1 :>= F a 9u. e 1 a f a ct»..ir a del 
1 1$'" 10,2 >=^edico- 500 C 1 pts 
U*í11-1>=Vava a la cárcel 

üíí n,2>= 

USÍ 12,1 ispa-íiue al hospital 
U$í12,2>=10090 Pts. 

U$í 13,1 >=Cobra una herencia 

iJ$í13,2 >=de 10000 Pts 

U$í 14 1 l >=Pa9ue su. Póliza de 

1 .J $■ 14 2 >= se Su r■ o : 5 808 P t. s 

ijíí 15■ 1 >=Pa9ue 4000 Pts Por casa 

U$íl5-2>=y 11000 por hotel. 

Ll$í 16,1 >=Mii 1 ta P or ewhr 1 a9u,ez = 

Uíí 16,2 >=Pa9u.e 2 000 Pts. 
U$íl7,l>“Ha 9a. nado el Premio de 
Uíí 17,2 >=honra,dez ! 10000 P ts. 

U$t 18,1 >=Vete a la casilla. 

U^v13,2 >*ruwero 1. 

U &< í 9 • 1 > s L a b are a srr o .i a 1 jm 
U$í 19 ■ 2 >*div i iJendo de 5000 P t =. 
U$í28,1)®Vaya a la casilla 
U ií 20,2 >=nu me ro 2B . 

Ufí 21 >! >=Pa.9ue Por 9 ast.os 
U$ < 21■2 >=escolares 15800 p ts« 
¡JÍÍ22., 1 >=Pa9ue 2508 Por casa 
U4 í22,2>=y 1 0000 P or hoteI. 

U^í23 ,l >=Vaaa a la casi 11 a 
lJ $ 1 2 3.2 >=nu mero 2 7 - 
U$í24-1>=Vaya a la casilla 
iJSí 24 ■ 2 ^numer o 11 , 

I m 25,1 >*'Va y a a l a cas 1 1.1 a 
Utí 25, 2 >= numero 8 
UÍÍ26, 1 >=Su.s prestamos p roducen 
Uíí26.2>=15800 Pts. 

U*í27,1>=Vaaa a la cárcel 
\m 27, 2 >= 

U$í 28,1 >= 

U*<28 ,2 )= 


iiü' 29,1 >=PRO GRAMA DE INTRODUCCION 

9960>FOR 1 = 1 JO 2? 

9965 FOR ,J=Í TO 2 

9970 INPIJT "SUERTE = " ; IJ$í I, J ) 

9975 LPRINT 11 Uíf " 11; " , M ¡ J; " >=“ . 

U$( I , J > 

9977 NEXT J 
9980 NEXT I 


! ONGITUD DE LRS ÍHP.lFTñS 
1 Vi 1 , 1 >23 
Vi 1 ■ 2 >=24 
Ví2,1>=24 
VC 2,2 >23 
Ví3,1>=23 
Ví 3 ,2 >10 
Ví 4.1 >=24 
Ví 4 > 2 >=24 
Ví 5 ■ 1 >23 
Ví 5,2 >=10 
Ví 6 , 1 >28 
Vi 6, 2 >19 
Vi?. 1 >=17 
Vi 7,2 >=16 
Vi 8, 1 >17 
VC 8, 2 >18 
Vi 9,1>=21 
Ví 9,2 >=11 
Vi 10,1>20 
Ví 10, 2 >16 
Vi 11,1 >=16 
Vi 11,2 >0 
Vi 12,1 >17 
Vi 12,2 >10 
V< 13,1 >=13 
Ví 13 >2 >12 
Ví 14, 1 >18 
Ví 14, 2 >16 
Ví 15, 1 >=23 
Ví 15, 2 >=17 
Ví 16 , t >=21 
Vi 16 , 2 >=15 
Ví 17 , i. >=22 
Ví 17, 2 >20 
Ví13,1>=18 
Vi 18,2 >9 
Ví19,1>=16 
Vi 19, 2 >=20 
Ví 20 , 1 >17 
Ví 20,2 >10 
Ví 2 1 -1 >16 
Vi 21,2 >-20 
Vi 22,1 >=19 
Ví 22,2 >13 
Vi 23, 1 >=17 
Ví 23,2 >=10 
Vi 24, 1 >=17 
Vi 24,2 >=10 
Vi 25, 1 >=17 
Ví 25 1 2 >=9 
Vi 26 ■ 1 >22 
VC 26, 2 >10 
Ví 27, 1 >16 
Vi 27,2 >=0 

PROGRflMR DE INTRODUCCION 
9960>FOR 1=1TO 27 
9965 FOR J=1 TO 2 
9970 INPUT "LONGITUD 5 ";Vií,J> 
9975 LFRI NT "Ví M TW 1 i n >” ¡ 
Vil, J> 

9977 NEXT J 
9980 NEXT i 

LONGITUD DE LR3 CALLES 

Kí 1 >=b 

ki 2 >17 

Kí 3>=17 

Kí4 >=20 

Kí 5 >=13 

Ki 6 >=14 

K< 7 >=6 

Kí 8 >=14 

Kí 9 >=13 

Kí10>=6 



























r 





EXAfiTp) 


GOSAÑEZ 


por Tose C loma. J 


PROGRAMA DE INTRODUCCION 
9969>FOR I-1T0 38 
997 ® INPUT “LONGITUD ! °iK< J > 
9975 PRIHT “KC'M;“ >=- J¡ KX I > 
9930 NEXT I 


ALQUILERES 

D*< i ALQUILERES 

Oi< £ >-Con 1 casa 

p*< 3 >-C:í-ir» 2 casas 

L<$>: 4 >=Cor, 3 casas 

D$>: 5 >=r;on 4 casas 

D$< 6 )=Con HOTEL 

Mí 7APRECIO DE CQMPRR 

Píe 8 >=[>* cada casa 

Dí<9>=De los hoteles 

PiC l0>-adei^as 4 casas 

Di r ' 11 >=V a l o r- h i P ote ca r i o 

9960>FOR I-1T0 11 

9970 INPUT “ALQUILERES r " a DSCI > 

9975 PRIHT "DfC ”>I i M >=“ >D$C I > 

9980 NEHT I 


¿Qt>E, COP/AUÍto D£ ¿5<3 (?^a) 
s£L ÓL 1 /MO SüP£R-ÉX/ro ffes 
ÍWÍLATHftm?) 


rNO HAy FOÍMA Dfi 

AútáAÍ C Otí B- hTOSf 

J’WArAS } ~y 


RC 11 '= 18 
K< X2 >=\ 6 

KC 13 >*=10 
K< 14 >=17 
K< 15 >=20 
K< 16 >=17 
K< 17>"9 
K< 18)=7 
KC 19 >«15 
K< 20)= 16 
KC 21 > a 6 
K<22>-12 
KC 23 >=12 
KC 24 >=18 
KC25>=14 
Kí 26 >'17 
KC 27 >=6 
KC 28 >=16 
KC 29 >=11 
K< 30 >®6 
KC 31 >=14 
KÍ32>*17 
K< 3 3 > a 8 
KC 34 >=18 
KC 35 >=6 
KC 36 >=10 
KC 37 >=20 
KC 38 >= 15 




reúnas 


■■■¡i 

1 J K L 

mmmm 


■■■■ 















































































































































































































































































































































































estaremos en lnfformal85 



Palacio y Ferial*Nivel 7*Stand 709 
Barcelona del 16 al 20 de Abril de 1985 



ANUNCIESE 

por 

MODULOS 




MADRID 

( 91)7339662 


BARCELONA 

( 93)3014700 












Y como no todo va a ser jugar al 
monopoly, en el descanso se puede 
cargar este programa de grandes 


posibilidades didácticas, titulado 
con el nombre de “Máquinas” por 
su autor, al que. por cierto, pudi¬ 


mos conocer en su domicilio del 
Polígono de Gcharcoaga en Bil¬ 
bao, aunque las condiciones urba¬ 
nísticas no son las más propicias 
como conocerán los “usuarios del 
Norte”. 

Un bonito programa con buenos 
gráficos, ayudado de algunos ca¬ 
racteres gráficos (subrayados). 

Miguel Carmona 16 K 


5 FEM MAQUINAS 
10 REM 19B4 Miguel Carmena* 

20 BOEDER 6: RAFEE 7: INU 9a G 
□ SUP 3000 

25 LET z;i “90 
30 CLS : REM Reí riel o 
510 PEINT hT O,5s"MAQUINAS SIME 
LES" 

515 FF.INT j F'RINT TAB 3; 11 -Maquí 
ñas sen dispositivos destinados 
a vencer urna tuerza llamada ""Re 
si stenci a'"* mediante la acción 
de otrü, llamada ""Potencia."^. tl 
520 PRINT i PRINT 
530 PRINT TAB 3; 11 -Las principal 
05 Sons": PRINT 

540 FFINT TAE 3; "-la Palanca.'' 
550 PRINT TAE 5¡ H -2fl Pelea Tija 


560 FF.INT TAB 5; "-3R Palea moví 
1. " 

570 PRINT TAB (1 “4r_ Torne. " 

580 PRINT TAB 5 ¡ r, -5 R_ P1 ana inel 
i nado» “ 

590 PRINT TAB 5s "-¿B, Tornillo. " 
600 PRINT TAE 5; " -7 P, Cu Na. " 

605 PRINT TAB 5; ,( -Bñ PARAR. ” 

610 PAUSE zki PRINT AT 20*0;"Pu 
1.se el n£i de la maquina que 'de 
see M 

620 FAU5E Oi IF INKEY*< ,, 1" OR I 
NKEVÍ "a" THEN GO TO 620 
630 IF INKEYt= ,, e 11 THEN OLEAR i 

STOP 

640 RESTORE ÍOÓO+ < 100#(CDDE INF 
EY$—43)) 

700 PEM Maquinas (cada una) 

710 CL5 : IR INKEY*3>"" THEN G 
0 TO 710 
720 READ a*, a 

725 IF a=0 THEN Gü TO BSO 
730 POR s=l TO a: PRINT AT 0,5; 

aí 

740 READ b? IF b=0 THEN GO TO 
7 65 

745 FOR u=i TO b¡ READ (tun 
750 READ b*t PRINT AT m,n&b$ 

760 NEXT u¡ READ c,d 
770 IF c=0 THEN 
780 FOF u=l TU c 
790 READ ca,n,y: 


GO TO 320 


FLOT INK cojk 


s y 

SOO READ 




DRAW INK cd; 


y,3 

810 NEXT u 

820 IF d®0 THEN GO TO BóO 
830 FGR u=l TO d 
840 READ cq, x,y,2; CIROLE INK 
ca; m. , y, i 


850 NEXT u 

860 PAUSE zK s PRINT AT 20,0 :”Pla 
lse una tecla": PAUSE 0 
870 CLS i NEXT s 
SSO PRINT AT O t 5;a4s READ c$ 

885 FFIMT AT ó.Os"Ley de : "sai 
390 LET p= ; (32—LEN ct 1 ' /2) -2 
900 FOF. s-1 TO LEN cí+4j PRINT 
AT 9, p+s-lj "™ M ; íiT 11, p+s-1 ; t 

NEXT a: FFINT AT iü s p;.; AT jr>, 

p+LEN c$+3; " ! ";mT lv,p+2jtí 
910 F AUGE zm F F. I NT pT “O, ■: ; 'Fu 

lse una tecla': FAUSE 0 
920 CLS : F.EAD e 
92S ¿F e-0 T HEN Gü TL- 1090 
928 DIM 32); uIM ** <e,32■ : 

DEM l <e> 

930 FFINT AT 0,5; ¿i*: FOF *- 1 T'. 
e: PEAD ds(s) 

940 PR INT TAB 2; U - M i s; " R. " ;d$ Le 

) 

950 NEXT a 

960 PAUSE zks PRINT AT 20,0; 11 Pu 
Ue el nA del dato qle desea obt 
ener " 

970 LET t*=lNKEY*s IF CODE t*<4 

9 OR CODE tt:-e+43 THEN GO TO 97 
O 

9B0 FOR li = 1 TG es READ f$(u> 

990 NEXT ulb LET t=CGDE t*-4B 
1000 CLS í PRINT AT 0,5;al 
1010 PRINT : PRINT "INTRODUCCION 
DE DATOS 1 ' 

1020 FOR u m 1 TO e 

1030 IF u=t THEN GÜ TO 1050 

1040 INFUT 7 "siíui 


1050 NEXT u 

1060 LET r-VAL í$<t) 

1070 CLS : PRINT AT 0,5;a*: FRIN 
T AT 3,5*cí 
1075 FOF: z-1 TG 32i TF 
" AND d*ít.*+!)=" " AND díít ? 2+ 
2)-" " THEN LET s=z-l: GO TD 10 
80 

1077 NEXT z 

1080 FFINT AT 7,0j d$(t)iAT 7,s;" 
-"tr 

1090 PAUSE ZK■ PRINT AT 20,0;"Pu 
Ue una tecla": PAUSE Os GO TO 3 
0 

1095; 

1097 FiEM Palanca 
1100 DATA PALANCA",2 
1105 DATA 4,3,3,"-Palanca es una 
maquina constituida por una bar 
ra rígida pue se puede girar aIr 
ededor de un punto ,",10.23,"p", 
1 2, 5 , " R " . 16, 1 * " -Ex isten 3 tipos 
de pal ancas : " 

1110 DATA 10, í ,0,52,84,120.0, :' 
,0.76,84,-S P -8*0 ,0.76,34.S,-3,0 
,0,68,76,16,0,O ,O, 172,34,0, 12. 
o',0.172,84,4,4,0 ,6,172,34,-4,4 
, C ,0,52 *84,0,-12,0 ,0,52,84.-4, 
-4,0 ,0.32,34,4.-4,0 ,0,52,100,1 
4 

1115 DATA 6,2,2,1) PALANCA 1h 
genero: " ,3,1, 11 Es aquel la en 1 a 
que el punto de apayo esta si tua 
da entre la potencia y la resis 
tencía, ",8,2, rL -2) PALANCA 2 £l 
era: 11 ,9, 1, "Es aquella en la que 


Miguel Carmona 
en su rincón 
de trabajo. 






























la resistencia dCtua entre el pu 
nto de apoye y la polencia. n s 14, 
2. "-3j RAL ANCA 3£ general !l , 15, 1 , 
"'Es aquel la, en 1 e que la potenci 
a esta situada entre el punto efe 
apoyo y U resistencia*" 

1120 DATA 0,0, M P?bp=Ftbr"* 4 
1122 DATA "PotenciaíF 1 , T "Braca 
potencia íbp ) a 11 Res i stencia <R) . " 
."Brazo resistente a<br>, " 

1130 DATA " (i il) ti Í4>)/i Í2) ", " (i 
<3> ÜU í4>>/i íir, 11 (i (1> *i (2) 1/i (4 
) % 11 íi U > *i Í2J ; / i ÍZ) " 

1140: 

1150 REM Polea tija 
1200 DATA 11 POLEA FIJA-,2 
1205 DATA 4,3*2*"Es una maquina 
constituida por un disco que pue 
de girar sobre un eje fijo y tie 
ne en su periferia un canal que 
aloja una cuerda." 

120? DATA 17, 12, ''RM6, 16, "F",9, 
11," 

1210 DATA 10,2 ,0,110*80,0,0,0 , 

0,100,30,0,-40.0 ,0,120,30,0.-40 
*0 ,0,95,40,10.0,0 ,0,95,40,0,-1 
0,0 * O» 95,30,10,0,0 , 0,105,40,0, 
“ 10,0 

1215 DATA 0,110,80,0,20,0 ,O,120 
,40,4,4,0 ,0,120.40,-4.4,0 ,0,11 
0,60,10 .0,110,30,2 
1220 DATA 1,3,2,"La ventaja de 
la polea fija radica en el hech 
ü de que es mas camodo ejercer u 
na fuera* hacia abajo que hacía 
arriba, considerando que puede a 
provetharse como patencia el pro 
pió peso de la persona que manip 
ula la maquina. "*0*0 
1225 DATA ■ , P=R%2 

1230 DATA "Fütencia(F).", 11 Resist 
encía . ", "i <2'f " . Ir i (1) " 

1240: 

1250 REM F'olea móvil 
1300-DATA "POLEA MOVIL 11 ,2 
1305 DATA 4,2,2,"Es una maquina 
analogs a la polea fija, con la 
Unica diferencia de que el eje d 
e la polea puede moverse en sent 
ida ascendente o descendente." 
1307 DATA 13,20,"P",20,17,"R",13 
*15," 

1310 DATA 9,2 ,0,130,70,0,-40,0 
,0.150,70,0,-40,0 T 0*150,70.-4,- 
4*0 ,0. 1 50,, 70, 4,-4,0 *0*140,30,0 

, — 1 .u, 0 

1313 DATA 0,132,17,16.0,0 ,0.132 
,17,0,-9,0 ,0-132,9,16,0,0 ,0,14 
3,17,0,-9,0 ,0,140,30,10 ,0,140, 
30,2 

1315 DATA 4,2,2, "Fara evitar la 
incomodidad que supone el que la 
potencia sea una fuerza ascende 
nte, en general se emplea una co 
mbi nacían de polea móvil 
y polea fija, tal como pued apr 
éciarss en la figura" 

1320 DATA 19,21* "P" *20,17,"R", 13 
,15, 11 

í 325 DATA 13,4 ,0,130,70,0,-40. 0 
,0,150,56,0.-26*0 ,0,150,70,-4. 
-4,0 ,0,150.70,4,—4,0 ,0,140,30, 

0 , -13, 0 

1327 DATA 0,164,20,0,33,0 ,0,164 


.20,4*4,0 ,0,164.20,-4,4.0 ,0,15 
7,56,0,8,O 

1330 DATA 0,132,17.16,0,0 ,0.132 
,17,0,-9,0 ,0,132,0.16,0,0 ,0,14 
6,17,0*—9,0 *0,140,30*10 ,0,140, 
30,2 ,0*157,56*7 ,0*157,56,2 
1335 DATA "P=R/2"*2 
1340 DATA "Potenci a< P) , ","Resist 
ene* a ífi). " 3 “i £2> /2% "i í11 *2" 

1350? 

1360 REM Torno 
1400 DATA "TORNO 11 * 1 
1405 DhTh 7,2,2,"Torno es una ma 
quina constituida por un cilindr 
o que lleva arrollada una cuerda 
y que puede girar sobre su eje 
mediante la acción de una manive 
la*" 

1410 DATA B,19,"P",18*13,"R",if_ 
22 - 11 r 2 ", 13,22, V1",17,12," ", 18* 
12*" " 

1415 DATA 29., 0 ,0* 80,70*90,0* 0 , 

0* 80, 71,70,0, 0 ,0, 85* SO, 0* -20* 0 
ü0,85,80* 55*0,0 ,0* B5*¿0,55,0,0 
,0,140,80,0,-20,0. 

1420 DATA 0*150,70 # 0*30,0 ,0,150 
*100*20,0,0 ,0,150,99,10,0*0 ,0, 
169.96*0,-26,0 .0,143,60.26,0,0 
1425 DATA 0,169,98,-2,-2,0 *0,16 
9,90*2,-2,0 ,0,169,72,2,2,0 ,0,1 
69,72,—2-2.O *0-169,68.0,-6.0 ,0 
,169,68,-2,-2,0 ,0,169,68*2,-2,0 
,0*169,62,2,2,0 ,0,169,62*-2* 2 * 

0 

1430 DATA 0,100,80,0,-40,0 ,0,10 
3,80,0*-20.0 ,0,106,90,0,-20,0 , 
0,109,80,0*—20*O *0*112.90*0,-20 
,0 ,0,115*80,0*-20,0 ,0,113,80,0 
,-20*0 ,0,121*80,0,-20*0 *0.124, 
80,0,-20,0 

1440 DATA "RVR = rI7r2",4 
1445 DATA "Potencia < P).","Resist 
encia(F') , M , "radio del cilíndroír 
1J , " , " radia de la itianivela(r2) ♦ 11 
1450 DATA ”<i(3>*i<2>>/i{4S'V(i 
c 1 > * i Í4> > n Í3> " , H £i í l> ti Í4) ) / i Í2 
> ", 11 ti C2> *i <3>) n (11 M 
1460: 

1470 REM Flano inclinado 
1500 DATA "PLANO INCLINADO",1 
1.505 DATA 5 ,2,2, "Plano inclinad 
o es una superficie plana que fo 
rma un ángulo con el suelo y sfi 
Utiliza para elevar cuerpos." 

1510 DATA 11*20* "9% 15, 13, "R% 14 
*24, “h", 12, 15, "1 11 

1515 DATA 24jJ| *0,90.40,90,0,0 , 
0,170*40,0, 35,0 , O, BO* 40, 90, 35,0 

1520 DATA 0,171.40*0,55,0 ,0,80* 
39,110,0,0 ,0,171,75,19,0,0 ,0,8 
0*41,0,19,0 

1525 DATA 0,82*55*86,35,0 *0,82* 
55.4,0,0 *0*92*55*3,3,0 ,0,86*59 
,0,0,0 ,0*168,90,-4,0*0 ,0*168,9 
0,-3.-4*0 

1530 DATA 0,185,41,0,32,0 *0,185 
* 41, * u . 0 * 0 * 185 ,41, j,Y',0 *0, 19 

5*73,-2,-2*0 ,0,185*73*2,-2,0 
1535 DATA 0,141,71.15,6.0 ,0.140 
.69.0*-20.O *0*156,77,-3,0,0 ,0, 

1 56* 77* -"2 , —3,0 *0*1 40, 49,3,3,0 , 

O.140*49,-3,3* O 
1537 DATA 0,140,70,5 
1540 DATA "F/R - h/l'\4 




1545 DATA "FotenciaÍP> . " * "Resi st 
ene i a CR> , " * "al tur a íh K " , " 1 ungí tu 
d í 1 í , " 

1550 DATA 11 Ci í3> *i Í2) >/i Í4> íi 
11 > * i í 4 > > / i < 3 > " , " íi U}*i<4>)/i(2 
> "* " íi 12>1 l í3))/i í1)" 

1600 DATA "TORNILLO"*2 
1605 DATA 1,2,0,"El tornillo es 
una maquina cons-tituida por una 
""cabesa" 11 * sobre la que se api 
ica la potencia* y una parte cil 
indrica, sobre la que se ha t 
aliado un surco de sección tria 
ngular a euadrangu-1ar, que se d 
en omina ,M1 rosca 1 " 1 y que describ 
0 una espiral." 

1610 DATA 0*0 

1620 DATA 13 *9,25* " F " , 5, 20, tl 1 " * 
12.6* "paso 11 

1625 DATA 10. 12. " GG5GGGGG kl ,11,12 
, "J5L £l!', 12, 12, ül',13. 

1 2■ f> G Q j - , 14, 12, " GGGG&QGG " 

1630 DATA 8,14 ," “““^—',9,1 

5, CD" ,11- 1S„ "CD" ,12*15* " cp* 

1635 DATA 13,Í6*"R" 

1637 DATA 14,1 *0,128*130*0,-17, 

0 ,0,205,130,0*-15*0 ,0*130,125, 
73,0,0 

1640 DATA 0,130,125*2*2.0 *0,130 
.125,2,-2,0 ,0,203,125*-2*2*0 ,0 
,203,i25,—2 *—2,0 , 

1642 DATA 0*80,79,39.0*0 ,0.B0*7 
5,39,0*0 *0*85,70,0,14,0 ,0,85.7 
9,-2,2,0 ,0.85,79,2*2,0 ,0,85,75 
*-2*-2,0 ,0,85,75,2*-2,0 ,0.204, 
110,4 

1645 DATA "FVR - p / í 2* H*1 > 11 ,4 
1650 DATA "Potencia£P>.","ResiBt 
enciaíRJ - ", "longitud lUve(l) ♦ ", 
"paso £p >." 

1655 DATA 11 < í { 2) % i í 4> > / (2#PI *1 £3 
M " Ci í 1> *:2*FI*i C3> J / i Í4) ", " ti í 
21 *i C4) )/Ü( 1J *2*PI J ", » (i í 1J *2*F 
I*i (3) ) /i í2> 11 
1690: 

1695 REM cuNa 
1700 DATA "CU^" *2 
1705 DATA 9 *2,1. "La cuna es un 
prisma ti angular construido can 
un material duro y tenaz, que se 
emplea para ran^per a separar c 
uerpos." 

1710 DATA 12,9,"P"*12,13,"R%10, 

4, "A" *9,8, " 0% 10* 13* "El", 15,9, "?=■» 

, 19,8* "C 11 , 12,16, 11 Ci" 

1715 DATA 19,0 *0,40,90,60,0*0 , 
0*40*90,30,-70*0 *0,100,90,-30,- 
70,0 

1717 DATA 0*70*90,0,-30,0 *0*70, 

60,2,2,0 *0*70,60,-2,2,0 

1720 DATA 0,70,58,0,“5*0 ,0.70*5 

0,0*-5,0 *0*70*43,0,-5*0 ,0,70,3 

6* 0.-5* 0 ,0,70* 28, 0*-3*0 

1725 DATA 0*70,90,50,-15*0 ,0,12 

0,74*-1,3,0 ,0*120,74,-3*0*0 .0, 

70*90*-50,-15*0 ,0,20,74*3*0,0 , 
0*20,74*1,3,0 

1730 DATA 2*121*73,-50,-14,0 ,2, 

20* 73,50,-14*O 

1750 DATA i6 , 1,5, J', 2, 5 * 11 OF*=p 
□tenqi a=P" ,3,5, 4,5, " áceres! 

stenci a-R , j, 5, 1 __ 11 * 6,5, " l ÁB =, cabe 
ca de la cu Na~b",7,5,,8,5*"A 
Calada de la cuNa^l" 

1755 DATA 12*9, "P" , 12, 13, "R 11 , 10* 


G\ 
















4, "A" ,?,8, M D n , 10, 13, n B" , 15, 9, 11 F>" 
, 19 , 3 ,"C", 12 , 16 ,"Q" 

1760 DATA 19,0 ,0,40,90,60,0,0 t 
0,40,90,30,-70,0 ,0,100,90,-30,- 
70, 0 

1765 DATA 0,70,90,0,“30,0 ,0,70, 
60,2,2,0 ,0,70 f 60,-2,2,O 
1770 DATA 0,70,58,0,-5,0 ,0,70,5 
0,0,-5,O ,0,70,43,0,-5,0 ,O r 70,3 
6,0,-5,0 ,0,70,20,0,-3,0 
1775 DATA 0,70,90,50,-15,0 ,0,12 
O,74,-1,3,O ,0,120,74.—3,0,0 ,0, 
70,90,-50,”15,0 .0,20,74,3,0,0 , 
0,20,74, 1,3, O 

1780 DATA 2,121,73,-50,-14,0 ,2, 

20,73*50,-14,0 

1785 DATA 11 P/R = b/1 ", 4 

1790 DATA "Patencia ÍP) . 11 , "Resist 

encía(Fi) . " t "cabeza de 1* clima <fa> 

. " , "lado de la cuNaü ) , 11 
1795 DATA ,p <i <2> *i (3) )/i (4) % * (i 
< 1) ti Í4) >/i Í3) ", lf (i < i>*i (4/ J /i (2 
) 'V (i í2) *i (3M /i <1)” 

2999 STOP 

3000 RE ti gráficos 
3005 RESTORE 3100 


3010 FOR i-0 TO 7 

3020 READ as F'OKE USR "a M +i,a 

3030 READ c: PGKE ÜSR M c"+i,c 

3035 READ di PGKE U5F “d^ + Od 

3040 READ n: PGKE U5R :i íV'+i,n 

3050 next i 

3090 REM datas 

3100 DATA 0,63,240,124 ,24.63,24 
0,0 ,24,15,252,120 ,0,15,232,68 
,60,63,240,68 ,0,65,240,68 ,0,15 
,252,63 ,<>,15,252,0 
3200 FOR i “0 TO 7 STEP 2: PGKE ü 
SR l, g "+ i , BTN 10101010 e POKE ÜSR 
■■g M + i + l,BIW 01010101: NEXT i 
3300 RESTüRE 3350: FOR 1=0 TO 7 
3310 READ hi POKE ÜSR 'h^+íph 
3320 N£:(T i 

3350 DATA 0.0,126,36,36,36,38,0 

3390 RESTQRE 3420 

3400 FOF; i-O TO 7: READ ms POPE 

ÜSR "m JI +i J (n! NE XT i 

342''> DATA 56,66, 98* S2, 74,70, 66, O 

3500 RESTORE 3570 

3510 FOF i—O TO 7 

3520 READ a.b,c 

3530 POKE USF' PGKE ÜSR 


"p"+i* b¡ POKE USF: "q"+i,c 
5540 NEK'T í 

357O DAT A 1,1,1 , 6 I , 1 25,61 , 66, ^ 
6,66 ,66,124,64 ,126,66,64 ,66,6 
6,66 ,66,124,60 ,O,O,O 
4000 RETLIRN 



...MI ORDENADOR ES SINCLAIR, 
MI SERVICIO TECNICO ES HISSA.. 


Y es lo lógico. Si has elegido el mejor 
microordenador del mercado, no vas a 



Sólo Hissa te puede garantizar 
la utilización de piezas originales SINCLAIR 
y expertos técnicos en reparación. 


Y recuerda que no tendrás sobresaltos 
con el precio. 



"COSTE ESTANDAR POR 
REPARACION" 


C/. Aribau, n.' J SO, piso 5 0 1 ü 
Telfs (93) 323 41 65 - 323 44 04 
00036 BARCELONA 

C/ Hermanos del Rio Rodríguez, n ! 7 bis 
m. (954) 36 17 08 
41009 SiWLLA 


Acude a la delegación 



más cercana. 


C/ San SoteicL n. c 3 
Telfs. 75¿3 31 97 - 754 32 34 
28037 MADRID 


C/ Universidad. n. c 4 - 2.® I 
Telf.. (96) 352 46 82 
46002 VALENCIA 


C/ Avila, de la Libertad n. ü 6. Bloq. I a Entl Izq. D 
Telf. (968) 23 18 34 
30009 MURCFA 

Avdo de Gasteiz, n, n 19 A - l 0 D 
Tell (945) 22 52 05 
01008 VITOREA 


P* de Rondo. n.° 82. l.° E 
Telf.. (958) 26 15 94 
18006 GRANADA 


C/ Travesía de Viga, n.° 32 - T 
Telf. (986) 37 78 87 
6 VIGO 


€/. 19 de Julio. n r TO - 2 : locof 3 1 

Tell.. (985) 21 88 95 
33002 OVIEDO 

C/ Atores, n 5 4 5 0 D 7 

Telf (976) 22 47 09 ' 

50003 ZARAGOZA 1 



















Tmj; 


fCUwas 


A/tcLwfo 



Si su archivo manual se ha con¬ 
vertido en un caos, es hora de pa¬ 
sar a un buen programa de manejo 
de datos. Pero antes de rebuscar en 
la tienda especializada, ¿por qué 
no echar una ojeada a éste que le 
ofrecemos? Es muy sencillo y, so¬ 
bre todo, muy rígido, ya que está 
preparado para un hipotético “al¬ 
macén” con veinte productos y la 
siguiente información por produc¬ 
to: descripción de! artículo, precio 


venta público, coste, stock, ventas 
año anterior, y descripción punto 
de pedido. Reducidas dimensio¬ 
nes, pero buen ejemplo de cómo 
tratar la información en tablas. 

El menú incluye las opciones de 
ALTAS para nuevos datos, BA¬ 
JAS para anulación de artículos, 
MODIFICACION para cambiar la 
información, CONSULTA con la 
que poder visualizar los artículos, 
GRABAR para guardar las tablas 


de datos, y finalmente METER 
DATOS ANTIGUOS para intro¬ 
ducir datos previos. 

En su versión original, el progra¬ 
ma incluye pantalla de carga (pro¬ 
grama 1), pasando posteriormente 
al programa principal (programa 
2). Por carecer de interés, omiti¬ 
mos los bytes de la pantalla de car¬ 
ga. 

Ricardo López 16K 


Programa l 


eo IF I MKEY*=‘‘ 1 11 THEN SO TO 2 


10 LOAD "rot. "SCF.EEN* : BOEDER 
O: LOAD "ARCHIVO" 

9999 LOAD "ral.": BORDEE Oí LOAD 
"ARCHIVO" 

Programa 2 

1 CLS ! BOEDER 7t DIM I*(1200 
>: LET I* C1> = "♦“: DIM A*<10> 

2 DIM LET B* (60) ="*“ 

3 DIM P*(7): DIM C*(7)j LET 1 

11 M 

6 DIM S*í8>: DIM V*í8)i DIM T 
* ( 8 ) 

7 ROLE 23609,50: POKE 23658,3 
10 CLS s PRINT AT 4,11; " M E 

N ü lk í PRINT AT 5,11;" 

30 PRINT AT 3,9;"1.^ ALTAS" 

40 PRINT AT 10,9;" 2« - BAJAS" 

50 PRINT AT 12,9; 3. - tlODIFI 

CACIDN" 

60 PRINT AT 14,9;"4.- CONSUL 
TA" 

65 PRINT AT 16,9; n 5.- GRABAR 

67 PRINT AT 13,9;"6.- METER 
DATOS " 

6B PRINT AT 19,9;" ANTIGUOS 11 
69 PLOT 0,0: DRAW 255,0: DRAW 
0,165c DRAW -255,0: DRAW 0,-165: 

PLOT 3,3: DRAW 249 s 0: DRAW 0,12 
3: DRAW -249,0: DRAW 0,-123 


OO 

90 IF INKEYÍ- 11 2" .THEN GO TO 3 

00 

100 IF INKEY*="3" THEN 60 TO 4 
00 

110 IF INKEYf a "4" THEN 00 TO 5 
00 

112 IF INKEY*-"5" THEN GO TO 2 

oca 

113 IF INKEYfó" THEN GO TO 3 
000 

115 GO TO SO 

200 CLS s PRINT AT 9,12;"ALTAS" 
t PRINT AT 10, 12; 11 =====": PAUSE 
35; CLS 

225 PRINT AT 10,3; 11 

CUANDO YA NO Q 
DIERA METER MAS DATOS INTRODUZ 
CA UNA N EN EL ARTICULO": PLG 
T 0,55: DRAW 250,0; DRAW 0,4Üs D 
RAW -250,Os DRAW 0,-40 

230 PRINT AT 5 f B¡"INTRODUZCA 
: INFUT AT 5*12;"ARTICULO 

IF AS-"N " THEN 

SO TÜ 10 

231 INPUT AT 5, 12; "Pé V,P " ; F'S 

232 INPUT AT 5,12; "COSTE ll ;Ct 

234 INPUT AT 5,12;"STOCK EN ALM 
AC» 11 ? 3* 

235 INPUT AT 5,12;"VENTAS ANO A 
NT. ";V* 


236 INFUT AT 5,12; 'PUNTO DE RED 
IDO " jT* 

23B LET L*”A*+2*+P*+C*+5$+V*+T* 

239 LET L=LEN L* 

240 FOR 1^0 TO 1200 STEP 60 
250 LET A=I; IF 1=0 THEN LET A 

= 1 + 1 

254 EF 1=1200 THEN GO TO 265 

255 IF I*(A TG A+2>=“* " THEN 

60 TO 260 

256 GO TO 265 

260 LET L*=L*+B*<1+L TO 60): LE 
T L* Í60) = ir *": LET I*íA+l TO 1+60 
>=LH: LEI I*(I+60>="*"* LET 
": GO TO 279 

265 IF 1=1200 THEN CLS : PRINT 
"NO LE QUEDA SITIO PARA METER D 
ATOS , PARA MENU PULSE CUALQUIER 
TECLA": PAUSE O: GO TO 10 
270 NEXT I 
290 GO TQ 230 

300 CLS * PRINT AT 9,12;"BAJAS" 
310 PRINT AT 10,12;"=-™=" 

320 PRINT AT 12,Of" 


330 PRINT AT 15,2;"INTRODUCE NU 
MERO DE ARTICULO A DAR DE PAJA¬ 
RARA IR A MENU i INTRODUCE O 

ti 

335 PRINT 

340 INPUT TAB (12);"NUMERO DE A 
RT * "|X 



































350 IF X=0 THEN GQ TD \Ú 
355 IF X=1 THEN LEI I*fX*60-5B 
TO 60 TO 340 

360 LET 1*<X160-59 TO X*60-i>»“' 

H 

370 GO TO 340 

400 CLS í PRINT A-T 9, 10; "NDDIFI 
CfiCIDN U s PLOT G,90: DRAW 255,01 
INPUT ; ""NUMERO DE ARTICULO A HOD 
IFICAR (PARA SALIR O) s °|V: IF 
V*=0 THEN GO TO 10 
405 IF 0-1 THEN LET K*=I*(V*60, 
-58 TO 0*60-1) 

407 IR v=i THEN GO TO 410 

408 LET K*=I*(V*60-59 TO V*60~l 

410 CLS s PRINT AT 4,3*"QUE DES 
EA HODIFICftR PLOT 15,i30i DRA 
W 230,0 

415 PRINT AT B, 6; " 1. -ARTICULO' 1 1 
AT 9,6¡ "2. ^P. V. P 11 ; AT I0 t 6("3.-C0 
STE' jAT 11,6; "4--STOCK EN ALMACE 
N J, ;AT 12,6; "5. -VENTAS ANO ANTERI 
QR"?AT 13,6; M 6.-PUNTO DE PEDIDO" 
s PLOT 15,55: DRAW 230,Oí DRAW O 
,65: DRAW -230,Oí DRAW 0,-65 
41B ^RINT AT L7 í 3* ,l Nete numero 
correspondiente, no dltlAi 

rtiodÍ4icar mas pulsa O y EN 

TER 11 : INPUT Uf 


421 

IF 

W=0 

THEN 

GO TO 400 


423 

lf 

W-l 

THEN 

LET 

N=1: 

LET W 

M9 

424 

IF 

W «2 

THEN 

LET 

N=21: 

LET 

W-27 

425 

IF 

W=3 

THEN 

LET 

N=2B; 

LET 

W=34 

426 

IF 

W=4 

THEN 

LET 

N=35: 

LET 

W-42 

427 

IF 

W=5 

THEN 

LET 

N=43: 

LET 

W=50 

42B 

IF 


THEN 

LET 

N=51: 

LET 


W=58 

430 LET tt*»K*ÍN TO W> 

435 CLS : PRINT AT 19,8;'"- DATO 
ANTIGUO " ;M* 

436 INPUT AT 2,8;"- DATO NUEVO 
11 ; T* 

440 IF V=1 THEN LET I*<<60*0-5 
9)+N TO (60fV-59)+W)=T* 

445 IF V=1 THEN GO TO 410 
448 LET I*CÍ60W“60>+N TO (6ü*V 
“60)+WJ=T* 

450 GO TO 410 

500 CLS : PRINT AT 2,12; "CONSUL 
TA" s PRINT AT 3, 12; "===•=-====": P 
RINT AT S t 0|"_„_____ 


505 PRINT 

510 FOR 1=0 TO 1200 STEF 60 
515 LET A-Is IF 1=0 THEN LET A 
=*1 

525 IF A-1200 THEN PRINT : INF 
UT PARA' 1 ; FLASH 1 ; " AMPLIAR I 
NFQRMAC1ON"¡ FLASH O;" DE UN AR 
T. PULSA SU NUMERO Y ENTER 5 SI 
NO, PULSE O 11 * FLASH O; Y: 60 T 
O 5000 

540 IF I$ÍA TO 1+2) =" "" THEN 

GO TD 620 

545 LET LÍ-ItíA TO A+60) 

560 FOR P=1 TO 60 

570 IF L*<P TO P+líO"" * THEN 

60 Tü 610 

575 IF I*íA TO^+2)-"* " THEN 

GO TQ 620 

580 PRINT 11 Art: " \ I* (A TO A+P-l 
> ; TAB (25 )1 M NUM. "¡í1+1/60); GO 
TO 620 


r 

ART. 1 MICROS 

--N 


P, V.P, 

45000 



COSTE 

23000 



STOCK EN ALMAC. 

200000 



VENTA ANO ANT. 

45000 



PÜNTD DE PEDIDO 

DEALERS 



PARA VER MAS ARTICULOS PULSE 


L. 

NUii, CORRESPDND, ,SI 

NO 0 



610 NEXT P 
620 NEXT 1 

2000 CLS : PRINT AT 11,5; 


PUEDE GRAE 

AR CUANDO LO DESEE. PULSE 6 PA 

RA GRABAR O S PARA SALIR AL M 

ENU "1 PLOT O,85a DRAW 250,0* DRA 
W 0,-35: DRAW -250,Oí DRAW 0,35 
292O IF rNKEY*=s"G M GR INKEY*="'g" 
THEN GO TO 2050 

2025 IF INKEYf^S" OR 1NKEY*="«" 
THEN GO TQ lp 
2030 GO TO 2020 

2050 CLS : SAVE "DATOS" DATA I*í 
) 

2060 CLS : FLASH 1: PRINT AT 10, 
5| "YA ESTA GRABADO 11 : FLASH O: PR 
INT AT 12,2T 1 PARA VERIFICAR CAMB 
IE CLAVIJAS Y PULSE V" 1 
2070 IF INKETS= , *V" OR INKEYf =■*" V 
THEN GO TO 2085 
2060 GO TG 2070 


2085 CLS 1 PRINT AT 12,2;"SI POR 
CUALQUIER MOTIVO,DESEA SALIR 


DEL VERIFY PULSE gRÉAK Y CUAN 
DO ESTE PARADO ,NUNCA RUN ,U 

TILIZE EL GOTO 10": PLOT 5,40* D 
RAM 250,0* DRAW O.47; DRAW -250, 
Oí DRAW 0,-47 

2090 VERIFY "DATOS* DATA 1*0 

2100 GO TO 10 

3000 CLS : P!*INT AT H,5|" 

PUEDE MET 

ER CUANDO LO DESEE, PULSE N P 

ARA METER O S PARA SALIR AL 

MENU"f PLOT 0,85: DRAW 250,0: DR 
AW 0,-35: DRAW “250,0: DRAW 0,35 
3020 IF INKEY*="M" Of* INKEY*=*"m" 
THEN GO TO 3050 

3025 IF INKEY*="3" OR INKEY*=*'* M 
THEN GO TO 3040 
3030 GO TD 3020 
3040 60 TO 10 

3050 CLS : PRINT AT 1U5;"INR0DU 

zda Clavijas en car 

Y PULSE FLAY.": LOAD "DATOS" DAT 
A 1*0 

3060 CLS : FLASH U PRINT AT lO, 
'Si YA ESTA METIDO 11 i FLASH O: P 
RINT AT 16,3;"PARA MENU PULSE CU 
ALQUIER TECLA 0 s PAUSE O 

3070 GO.TO 10 

5000 CLS : IF Y=0 THEN GO TO 10 
5002 IF YOl THEN GO TO 5000 
5004 LET M=Y*60-5B: LET K-M+1B: 
GO TO 5010 

5008 LET M=Y*ÓO-59i LET K^M+19 
5010 PRINT AT 5,3;" ART. °;Y,I*£ 
M TO K> 

5020 PRINT AT 7,0;" 


5030 PRINT AT 10,3;"P.V.P , 11 jTAB 
(23 >; I* ÍM+20 TO M+26);AT 11,3;°C 
OSTE";TAB (233 ;ISíM+ 27 TO M+33> 
5040 PRINT AT 12,3;"STOCK EN AU1 
AC. ; TAB <23>;I*<M+34 TO M+41): 
PRINT AT 13,3I"VENTA ANO ANT„";T 
AB í23);I*(M+42 TO M+49): PRINT 
AT 14,3;"PUNTO DE PEDIDO";TAE (2 
3);I*(M+50 TO M+57): PLOT 10,48: 

DRAW 245,0: DRAW 0,55: DRAW -24 
5,0: DRAW 0,-55 

5050 PRINT AT 18,2;"PARA VER MAS 

ARTICULOS PULSE NUM H C0RRE5P 

QND,,SI NO O *’ 

5052 IF INKEY *= M11 THEN GO TO 50 
52 

5055 IF INKEY*< >"0" THEN GO TO 
5070 

5065 GO TO 10 

5070 CLS : INPUT AT 15,5;°NR0. D 

E ART* ";Ys 60 TO 5000 


MADRID 
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BARCELONA 
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Un poco de 
Código Máquina 


Muchas calculadoras de bolsillo 
incorporan la función fació ría 1 
(marcado normalmente como x!). 
El factorial de un número x, se de¬ 
fine de la siguiente forma: x! (leído 
como x factorial), es igual al núme¬ 
ro de las distintas combinaciones 
que se pueden realizar con x obje¬ 
tos. Por ejemplo, si tiene 4 libros 
en una estantería, puede colocar¬ 
los de veinticuatro formas diferen¬ 
tes (4! = 24). 

Son muchas las aplicaciones de 
los factoriales en el campo de la 
matemática pura, Uno de los prin¬ 
cipales usos es en el cálculo de se¬ 


ries infinitas para ampliar distintas 
funciones. 

Aunque incorporados en mu¬ 
chas calculadoras, es una función 
que rara vez encontrará en un mi¬ 
croordenador. Con la pequeña ru¬ 
tina que le ofrecemos a continua¬ 
ción. su Spectrum ya no tendrá 
que envidiar a la más completa 
calculadora. Aunque la función 
factorial no se utiliza con tanta fre¬ 
cuencia como otras (seno, raíz cua¬ 
drada. etc.), su ventaja estriba en la 
posibilidad de realizar iteraciones 
de series infinitas para lograr mejo¬ 
res aproximaciones en los cálculos 


de las diferentes funciones con que 
trabaje. 

La forma en que se calcula c! 
factorial se puede resumir de la si¬ 
guiente forma: Se toma un número 
y se multiplica por ese mismo nú¬ 
mero menos uno, después por éste 
menos uno y así sucesivamente 
hasta llegar al número uno. Por si 
¡as matemáticas no son su fuerte, 
veamos un par de ejemplos: 

4! = 4x3x2x l =24 

61 = 6x5x4x3x2x1 =270 

El factorial de 1 es 1. Pero el fac¬ 
torial de 0 también es I. Sólo hay 


I 
















una forma de ordenar ningún obje¬ 
to, al igual que sólo hay una forma 
de ordenar un objeto. El método es 
sencillo en términos de programa¬ 
ción, y sólo requiere una linea en 
BASIC: 

LET FACT - 1 : FOR F = 1 TO 
X : LET FACT = FACT x F : 
NEXTF 

que funciona bastante bien siem¬ 
pre que no desee obtener el facto¬ 
rial de un número alto, digamos 
por encima de 5. La obtención del 
factorial de 30 ya puede ser “exce¬ 
sivo” para el BASIC de Sinclair. Si 
lo coloca como una subrutina ha¬ 
brá de incorporar la instrucción 
RETURN lo que ocasionará un 
mayor retardo en la respuesta. 
Respuesta que, en términos de ve¬ 
locidad, viene siempre de la mano 
salvadora del código máquina. 
Para mayor precisión, de los 142 


insignificantes bytes que requiere 
esta rutina. 

¿Dónde almacenar esta rutina? 
Se puede elegir una zona de me¬ 
moria protegida o situarla dentro 
de la esfera de acción del processor 
interrupts o interrupciones del 
procesador con lo que la rutina se¬ 
ría llamada 50 veces por segundo. 
Por el momento, para no compli¬ 
car el tema, y dada la reducida lon¬ 
gitud de la misma, puede colocarla 
en una dirección alta (la instruc¬ 
ción permite introducir la direc¬ 
ción donde se desea colocar la ruti¬ 
na). 

Para utilizar la nueva función 
factorial incorporada a su Spec- 
trum (una vez cargado y ejecutado 
este programa), introduzca en la 
variable “x” el valor del que desea 
obtener el factorial (línea 310), 
Después sólo tiene que llamar a la 
subrutina, de acuerdo a la direc¬ 
ción donde la ubicó: 


RANDOMIZE USR comienzo di¬ 
rección 

obteniéndose el valor factorial de 
“x” en la variable "fací”. 

Como podrá comprobar, no sólo 
funciona sino que se obtiene el re¬ 
sultado de forma casi instantánea. 
Sólo hay que tener en cuenta ini- 
cializar previamente la variable 
“fact” antes de llamar a la subruti¬ 
na. De otra forma se produciría el 
mensaje "Variable not found” 
como ocurriría con cualquier otra 
variable en BASIC. Recuerde: 

LET fact = 0 

Finalmente le damos dos expre¬ 
siones matemáticas típicas que re¬ 
quieren este tipo de cálculo. La 
fórmula de MacLaurin se utiliza 
para trabajar con funciones sim¬ 
ples, y la expresión binomial nor¬ 
malmente sirve para trabajar con 
funciones del tipo (t + x) n . 


Maclaurin’s Expansión: 

e* = + x -Fx 2 + x 5 + ... x r +... 

2! 3! r! 

f(x) = f(0) + f (0)x + f’(0)x ; +... 

2! 

General Binomial Expansión: 

+ f , ’(0)x r + ... 
r! 

(1 + x) n = 1 + nx + n(n— l)x l + 

2! 

Sinx = x—x 5 + x ! —x T + ... 

3! 5! 7! 

n(n—l)(n—2)x J + 

3! 

+- (—l)'*x :n + 1 +_ 

+ n(n—l)(n,—2).(n—r+ l)x r + ... 

(2n +1)! 

r! 


Y en el próximo número... 


CONTROL STOCKS, para controlar la situación. 



AULA INFORMATICA CON SPECTRUM, y con el Logo 



QL-DIVERSION. Análisis del Easel y primer QL-listado. 








































Me gustaría que me explicaseis 
cómo habéis dibujado la portada 
de vuestro número 3 con el GIZ- 


MO, y especialmente cómo habéis 
logrado el color marrón e interca¬ 
larlo con el negro. 

Por otro lado, os quisiera pre¬ 
guntar a qué se refiere el manual 
cuando dice que si se alteran algu¬ 
nas variables del sistema mediante 
POKE éste queda alterado produ¬ 
ciendo efectos perjudiciales. ¿Se 
daña irreparablemente con esto al 
Spectrum? ¿Se daña sólo e! progra¬ 
ma que está en memoria? ¿Se daña 
sólo hasta que se desconecta de la 
red? 


J. M. Martínez 
Cádiz 


R 


Varias personas nos han pre¬ 
guntado cómo hemos logrado el 
color marrón en esa portada, y 
también otros tonos poco habitua¬ 
les. La respuesta es: ¡No lo sabe¬ 
mos! Son los famosos “duendes de 
la imprenta " los que hacen que los 
colores no respondan muchas ve¬ 
ces a la fotografía original. En este 
caso el efecto fue muy conseguido, 
otras veces no tanto. En fin, en la 
pantalla original el color era rojo. 

Las variables del sistema a que 
se refiere el manual son esenciales 
para el buen funcionamiento de la 
máquina. Cuando se dice que su 
alteración daña al sistema se refie¬ 
re a que pueden “colgar” (alterar 
el funcionamiento) el sistema ope¬ 
rativo del Spectrum. En cualquier 
caso, su efecto no durará más que 
hasta que hagamos RANDOMI- 
ZE USR 0 o desconectemos la co¬ 
rriente. Lo que si pueden causar es 
la pérdida del programa o los da¬ 
tos que estuviéramos ejecutando. 
Asi que, si queréis hacer experi¬ 
mentos, salvad antes en cassette 
vuestro programa. No se puede 
causar ningún daño permanente 
al Spectrum usando el teclado. Si 
se puede estropear si conectamos o 
desconectamos algún periférico 
con la alimentación conectada. 


Tengo una impresora Seikosha 
GP-50S y he observado lo mucho 
que distorsiona la imagen alargán¬ 


dola. Desearía que me constesta- 
seis si esto es normal o es un fallo 
propio de mi máquina. Adjunto 
listado e impresión, en la que mar¬ 
co en trazo discontinuo el dibujo 
de una circunferencia hecha con 
un compás, donde se advierte la 
distorsión producida y las dimen¬ 
siones del recuadro para guardar 
las mismas proporciones que el di¬ 
bujo que aparece en la pantalla de 
televisión. 

Clifford W'ait 
Cádiz 



10 CLS : DRAW 255,0: DRAW 0,17 
5: DRAW -255,0: DRAW 0,-175: CIF 
CLE 127,67.S5: FLDT 127,87 

20 LLIST : LPEIHT : COPY : STO 
P 


R 


Remitimos su pregunta a Di- 
rak, distribuidores de tas impreso¬ 
ras Seikosha. quienes pasan a con¬ 
testarle: 

"Normalmente casi todas las 
impresoras, poseen un ratio de 
proporción de los puntos, que pro¬ 
voca un pequeño desfase entre el 
dibujo de pantalla y el obtenido 
por COP Y en la impresora. 

Nos remitimos al manual de la 
impresora, sección de característi¬ 
cas (pág. 8, apartado l-F) donde 
dice que el espaciado entre puntos 
es 1/84 (horizontal) * 1/72 (verti¬ 
cal). Todo esto implica que, para 
corregir el ratio en el ejemplo que 
nos muestra, tendrá que realizar el 
siguiente programa: 



5 LET r=80¡ LET r1^80*72/04 
7 LET c1 = í28: LET c2=3& 

10 FÜR ?•: = 0 TQ 2*F I STER .01 
20 FLDT cl+ríCOE K t c2+r1*SÍN k 
30 NEXT x 




SE VENDE ZX Spectrum 48 K ion 
manuales accesorios* y lo* mejores 
programas coiné reía le* (juegos y 
uti.lid.idci). a estrenar. garantía ¡IV 
tcí crónica con la fecha en blanco; 
2.7,tKJO, Impresora GPSOS con L2 ro¬ 
llos de papel, a cifrenar f garantía <n 
blanco; 21-500, TU DM 12" ELEE 
M¡od. 1215; 9ÍHH). Utrp mucho- 
Rafítl Diat, Antonio Maüfí, 36*2 
def, Oviedo. TlfnO> 253795, 




ff sf GO vlW ^ 


VENDO Spectrum 48 K 
mese* de uso, garantía), impre¬ 
sora Seikosha GP100 (profesio¬ 
nal), interdice Centronics 
RS232, programas de contabi¬ 
lidad y declaración renta y cin¬ 
co juegos originales. Dos li¬ 
bros de Spectrum, 15 números 
de la revista ZX v varios de TO- 
DOSPECTRUM, asi como las 
mejores inglesas. Además, ptv 

1 liza de seguro a todo riesgo {ro¬ 
bo, incendio, averías, manejo 
inadecuado, delecto fábri¬ 
ca..,), Todo por 39-000 pías. 
Precio de coste superior a las 
120.000 pt-is. Santiago de 
Biedma. Virgen de los Rosales, 
i 12. Madrid 2&023. 




CAMBIO Transcéptor 40 ca¬ 
nales, 2 amenas (móvil y Bal- 
contra), medidor de estacio¬ 
narias y potencia, cables, li¬ 
bros, revistas por Interfacc 1, 
con microdrive o por Impre¬ 
sora Seikosha GP50S o ven¬ 
do por 21.0(10 pts. Interesa¬ 
dos llamar al 437S285 de Viz¬ 
caya, preguntar por Guiller¬ 
mo. Se estudiará ti otras ofer¬ 
tas. 


alo W* 















La versión española de Popular Computing 


ORDENADOR 

- POPULAR 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 



Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 

ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática 


Cómprela en su kiosco habitual o solicítela a: 


ORDENADOR 

- POPULAR. 


Bravo MuriUo, 377 
leí 7339662 

28020 - MADRID 




























TUSPECTRUM- 


M AS POTENTE 


SINCLAIR STORE te ofrece la colección de cintas OCR 

LO MAS POTENTE PARA SU SPECTRUM 

Con ellas podrás obtener un mayor rendimiento de tu ordenador personal. 
Si aún no las conoces, solicita una demostración, sin compromiso, 
en tu boutique informática SINCLAIR STORE más próxima. 
¡Quedarás sorprendido! 


PRECIO OFERTA 
1.250 PTAS. 



CHES5 

THETURK 



- 6 niveles de juego 

- "Al poso" y “Co£ing" 

- CorohOCión de peones y Aonstarmoctón 
en 4 ptazns diterantas 

- florados rerárTpogQ 

- Ahorra iptrodas y labias, comunes. 

■ Opaon de íymto 

- Salida de iodos las jugadas □ 
IfUJíflSora 

- Opción de damostioaorL 



5 hene mrterás en averiguo» cómo real¬ 
mente funciona un ordenador. si desea 
éKj»imenfa¡ d poda auránNco de progra¬ 
mación, "ks herramienta de comproüüdón 
de céragas. es ta respuesta 
Te hammianta deronpaSja^ de códi¬ 
gos «$ un programo :te UHÉZtx^n que 
v«ne completo con un curso de msFiuc- 
Oón permitiéndote dar ertíTadq. compra 
Sor, mosto* en paNolta y camina» rutinas 
de códigos de maquino hesodacimaies de 
manen fácil y rápita 


"La herranienta dBcornproboclQn de códi¬ 
gos . esto pensada poto enrodar al pnnci- 
piarie que des» apkrar eHe i asonóme 
toma Ó ai &p#to que desea mejorar sus 
programas de códigos de maquino. 

Uno rutina de ajnwtórn HBtadB&maí 
está incAJidJ en el tragrama como 
standard 



- toput/adito» de tato de pantalla com¬ 
pleta de 42 columnas. srmplicidKL 
vektokjdd y iacittdotí de mengo 

- tesembíy a pantalla, impresora y/o 
cania (vetoeteoo de asserrtfy iQQG 
íraas/minuta). 

- Anego completo instrucciones ZBO. 

- Constantes Binar* OctaH, He* y ASCXl 

- Comprobación amplia de srnlanjs y 
mensajes cíe error, mostrando código de 
origen, linea, ele 


- tashucciones Assernfcler DEFM, DtFS, 

offw, cera defu eoi. m om 

- Valoración de expresiones sofisticadas: 
parénesis Estocados dentro efe otros., 
dwtméfioo modutor. Operadores lógicos, 
efe. 


- Mover. copiar e imprimir en bloque. 

- Simtxnlo/nombre de morca de 6 
caracteres. 

- entenas "sanó otoñe" and "quasti 
assembtei'' permiten momio de tato 
tún en S6k 


- Muestra conjunto de símbolos, 

- Opción ""wart on errar". 

- SJrirrg frod and aireíitata, efc 

- Funcionará tambán como proceso de 
paletera sflnpte 

- Podrá ser cotocodo en mamona, para 
ESa-bugging con el MACHINÉ COCÍ TtST 
TOOL 


PRECIO>J«CU.PTAS, 

OFERTA 1.750 PTAS. 



ADORESS 

MANAGER 



Es un programo ráptoc de apteociori con 
códtgg de móquna que eiraes Q k» usua¬ 
rios. de* Spdchum un arahiw protaaoncf 
de direodones inraee* y Stffcmo de 
tecuperopón 

ADOfiESS MANAGER na «Jo diseñado cui¬ 
dadosamente para proveer al usuaria de 
un programo que es etaramodameriite 
amistoso y fódl de usar 
incluye tos sguenros conxteñsttads: 

- Tiene cgoctioí para 400 nombíBS 
(rompieras. dirwdcntfi y n* de tatotono 
en 49 K 

O más tto 1.500 nombres indAtauctes/ 
litalas/referencKB, 

- todee múlnpto ■ el irxn® mpte defindo 
por e» usuario permite la ctasfiooción 
atado ds arflrodas, esenoiaj pora rfi 
uso más softsiicado. 

- Enriados completas mostradas en pan- 
taita - gnq maneto oranzüdd y muy úffil 
de do* entrada a datos, fácil y 
ráprda monte 

- Respuesta tastontanea - este progruno 
es muy rápida 

Su usa inciuyfr 

Bn cosa atcfiM* y íctoalizor direcciones 
impnms -rsto de torjoics de novdod, etc 
En el trátXfa- erarte fetos de direcciones, 
DtoHfKocion esc clientes por áreos 
tamaños d su elección 
Bn el ocio: admineshacfón de miembros ds 
in cWl oatátogos, y macho, mucho 
más 


i PRECIO J-W® PTAS 
OFERTA 1.750 PTAS 



HNANCE 



MANAGER 


Sus Doracterstioas pnneapatos sort 

- ÉNTRAW DOBLE AUTOMATICA - para 
hasta 2S6 cuantas saponados con 
tatoles asmantes 

- AMALEE - pon descnpcH^nes delintiíB 
pon ai usuono y/o techa. 

- PH3ID0S EN CARTERA ■ SATOdOS Oplf- 
codos y ellmjnodos por leonas o en 
miéntalos regulares 

- SALDOS - todos tos saldos de cuernas 
pueden ser listados en cucHquier techo 
dspecrftoo 

- RCHA DE TRANSACCIONES NUEVAS - 
dtemneta enlffl enhadaí antiguas Y 
nuftcs. 

- Orden de paQna - pasa o traws ne 
todos los eueríos, hocio odeionta y 
hocKS oirás 

- CONCILIACION - parante al usuarto aan- 
rralar articulos inoorreetas en tos 
odroctos., 

- PRESENTACION COMPIHA EN PANTAr 
LLA ■ vea lo que oarre ouondo da 
entrada fBdtrttoa o borra 

- VELOCIDAD - este írográmn es muy, 
muy r^Jtdo. 



Sis caiacterisíteos pnncipales son 

- Relej de tiempo raoí y alorma oon 
QüfWMón/dwoonawóri ó mMoocune 
Impesas 

- 10 tactos, de funcionas programadles, 
hasta 252 caracteres. * 

- Mover, copiar, barra un Hoque de 
ínea$ tuskroí das (¡neos. 

- Encontrar y oompror conjuntas de 
caracteres. 

- Mostrar en pontana mqpa de mamorio 
gráfica - hberanüa la mamona 
teStfflTte 

- Rs-nummr pragrana pásico 

- Trazar traza la qjeciteión de un pro 
grama BASIC con retraso raneóle entre 
coda airada 

- vanofctes - enseña todas kB ranabtes 
usadas an un programa y sus valores. 

- RAM70P oampta RAMTOP sm bonor 
las venables. 

- CÜMPRÉSS. REMMLL y PfCK pota 
reducir di mínimo el número de Dytes 
usados en un programa 

- Salida o la impeesoro - para tmpamr 
te<to sobro popel 

- Cambra caja - curtí io lo caja supaia 
Qipho a ¡a coya intenor y '.vcera'so 


En todas las cintos, existe la "VERSION PLUS 80" 

(80 columnas, compatibles con intertoce céntrente KEMPSTON). 



SOMOS PROFESIONALES 


BRAVO MURILLO, 2 (apare gratuito en C/. Mogollones, 1). Tel.: 446 62 31 
DIEGO DE LEON. 25 (apare, gratuito en C/. Núñez de Bata, 114). Tel.: 261 88 01 MADRID 




































